Dibujar curvas en Visual Basic .NET 2008

Microsoft Student Tech Club: Universidad Libre

Este es el resultado

El código es el siguiente

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

Dim redPen As New Pen(Color.Red, 3)
Dim greenPen As New Pen(Color.Green, 3)

'Crea los puntos que definen la curva
Dim point1 As New Point(50, 50)
Dim point2 As New Point(100, 25)
Dim point3 As New Point(200, 5)
Dim point4 As New Point(250, 50)
Dim point5 As New Point(300, 100)
Dim point6 As New Point(350, 200)
Dim point7 As New Point(250, 250)

Dim curvePoints As Point() = {point1, point2, point3, point4, point5, point6, point7}

'Dibuja las líneas entre los puntos
e.Graphics.DrawLines(redPen, curvePoints)

'Dibuja la curva que pasa por esos puntos
e.Graphics.DrawCurve(greenPen, curvePoints)

Volver al Inicio

Célula Microsoft. Universidad Libre