Volver al Inicio Microsoft Student Tech Club: Universidad Libre

Curva bezier en Visual Basic .NET 2008


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

'Necesario para los gráficos GDI
Dim objGrafico As Graphics
objGrafico = e.Graphics

'Lápiz para el color de la línea y con un ancho de 3
Dim objLapiz As Pen = New Pen(Color.BlueViolet, 3)

'Curva requiere: Lapiz, punto inicial (x,y), control1 (x,y), control2 (x,y), punto final (x,y)
objGrafico.DrawBezier(objLapiz, 500, 150, -280, -150, 100, 600, 190, 300)

 

Volver al Inicio Célula Microsoft. Universidad Libre