Crear un cubo con VB.net

Hola amigos programadores, este dia traigo un código que presente junto a mis compañeros (mauricio^2) xD en la instructora a nuestros compañeros de programación.

El código esta hecho en VB.net y dibuja un cubo en el formulario, espero les ayude en alguna aplicación:

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim grafico As Graphics
grafico = e.Graphics

Dim PuntosCubo() As Point = {New Point(10, 10), New Point(100, 10), New Point(100, 90), New Point(10, 90)}
Dim PuntosCubo2() As Point = {New Point(30, 30), New Point(120, 30), New Point(120, 110), New Point(30, 110)}

grafico.DrawPolygon(New Pen(Color.Orange, 3), PuntosCubo)
grafico.DrawPolygon(New Pen(Color.Orange, 3), PuntosCubo2)

grafico.DrawLine(New Pen(Color.Orange, 3), 100, 10, 120, 30)
grafico.DrawLine(New Pen(Color.Orange, 3), 10, 10, 30, 30)
grafico.DrawLine(New Pen(Color.Orange, 3), 100, 90, 120, 110)
grafico.DrawLine(New Pen(Color.Orange, 3), 10, 90, 30, 110)
End Sub

para que el codigo funcione hay que llamar las siguientes dll's:

Imports System.Drawing
Imports System.Drawing.Drawing2D

espero les haya servido.

nos vemos en la próxima aplicación xD...

Comentarios

Entradas populares de este blog

Funciones principales de un Datawindows en Power Builder

Las políticas y Prácticas en Recursos Humanos

Cargar informacion de base de datos en Combobox C# y VB