Dibujar curva cerrada en Visual Basic .NET 2008

Microsoft Student Tech Club: Universidad Libre

Este es el resultado

El código es el siguiente

OJO, debe importar una librería primero

Imports System.Drawing.Drawing2D

Y este es el código que va dentro del paint

' Se crea la herramienta con la cual se trazan las líneas, el color y el espesor de la misma.
Dim blackPen As New Pen(Color.Black, 4)
Dim greenPen As New Pen(Color.Green, 2)

' Se crean los puntos para trazar las líneas de la figura.
' Las coordenadas estan ordenadas del modo (X,Y)
Dim point1 As New PointF(50.0, 100.0)
Dim point2 As New PointF(50.0, 300.0)
Dim point3 As New PointF(100.0, 450.0)
Dim point4 As New PointF(300.0, 450.0)
Dim point5 As New PointF(350.0, 300.0)
Dim point6 As New PointF(350.0, 100.0)
Dim point7 As New PointF(50.0, 100.0)

' Se da el orden de los puntos en la ventana.
Dim curvePoints As PointF() = {point1, point2, point4, point3, _
point5, point6, point7}

' Dibujar las líneas que se originan entre los puntos ya ubicados en la ventana.
e.Graphics.DrawLines(blackPen, curvePoints)

' Se crea el grado de dispersión de la curva cerrada que toca todos los puntos de la figura.
' Posteriormente se utilizara esta información para crear la curva cerrada.
Dim tension As Single = 0.3
Dim aFillMode As FillMode = FillMode.Alternate

' Se dibuja la curva cerrada en la ventada
' Todos los argumentos de la curva que se encuentran en el paréntesis deben tener ese orden especifico.
' De no tener el orden establecido no se podrá ejecutar.
e.Graphics.DrawClosedCurve(greenPen, curvePoints, tension, _
aFillMode)

Volver al Inicio

Célula Microsoft. Universidad Libre