| Volver al Inicio | Microsoft Student Tech Club: Universidad Libre |
Polígonos en Visual
Basic .NET 2008
Este es el resultado
El código es el siguiente
| 'Necesario
para los gráficos GDI+ Dim objGrafico As Graphics objGrafico = e.Graphics 'Una serie de puntos Dim objPuntos(8) As Point objPuntos(0) = New Point(50, 30) objPuntos(1) = New Point(90, 10) objPuntos(2) = New Point(120, 40) objPuntos(3) = New Point(190, 90) objPuntos(4) = New Point(150, 130) objPuntos(5) = New Point(100, 170) objPuntos(6) = New Point(60, 200) objPuntos(7) = New Point(30, 240) 'Lápiz para el color de la línea y con un ancho de 2 Dim objLapiz As Pen objLapiz = New Pen(Color.BlueViolet, 2) 'Dibuja un polígono con el arreglo unidimensional de puntos objGrafico.DrawPolygon(objLapiz, objPuntos) |
| Volver al Inicio | Célula Microsoft. Universidad Libre |