Entradas

Mostrando entradas de abril 2, 2008

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),