Volver al Inicio Microsoft Student Tech Club: Universidad Libre

Figuras con un cambio de color a otro en su relleno 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 'Necesario para la clase DashCap y DashStyle

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

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

'Rectángulo en el que se hace el cambio de color
Dim objAreaCambiaColor As Rectangle
objAreaCambiaColor = New Rectangle(10, 10, 230, 230)

'Se instruye como cambia de un color a otro, observese que se usa Horizontal
Dim objTintaCambia As LinearGradientBrush
objTintaCambia = New LinearGradientBrush(objAreaCambiaColor, Color.DarkBlue, Color.Yellow, LinearGradientMode.Horizontal)

'Rellena un círculo con ese juego de color
objGrafico.FillEllipse(objTintaCambia, 10, 10, 230, 230)

 

Volver al Inicio Célula Microsoft. Universidad Libre