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...
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