Panel con colores en degrade – (Gradient)

Quiero mostrarles en esta oportunidad una forma muy sencilla de tener un panel mucho más vistoso con un degradé de dos colores en visual basic .net.

Para el ejemplo necesitamos un formulario y un panel, tal como se muestra en la siguiente figura:

luego damos doble clic sobre el panel y nos vamos al evento paint del panel en la vista de código, y en este evento colocamos el siguiente código:

Dim y As Integer = 0
Dim x As Integer = 0
Dim ancho As Integer = Me.Width
Dim alto As Integer = Me.Height
Dim color1 As Color
Dim color2 As Color

color1 = Color.DarkRed
color2 = Color.LightCoral

Dim colorear As New _
LinearGradientBrush( _
New Point(x, y), New Point(x + ancho, y), _
color1, color2)
e.Graphics.FillRectangle(colorear, _
x, y, ancho, alto)
y += alto + 10

Para que este código funcione deberemos agregar una referencia a Drawing2D como se muestra a continuación:

Imports System.Drawing.Drawing2D

Al ejecutar el programa deberíamos ver un formulario con un aspecto similar al de la siguiente figura:

Cambiando los valores de las variables color1 y color2 pueden cambiar los resultados a su gusto.

También quiero dejarles a continuación un par de variantes para reemplaar el código del evento paint del panel y obtener distintos resultados… espero que los prueben y les agrade…

Variante 1

Dim y As Integer = 0
Dim x As Integer = 0
Dim ancho As Integer = Me.Width
Dim alto As Integer = Me.Height
Dim color1 As Color
Dim color2 As Color

color1 = Color.DarkRed
color2 = Color.LightCoral

Dim black_white_brush As New _
LinearGradientBrush( _
New Point(x, y), New Point(x + ancho, y), _
color1, color2)

Dim color_blend As New ColorBlend(3)
color_blend.Colors = New Color() {color1, color2, color1}
color_blend.Positions = New Single() {0.0, 0.2, 1.0}
black_white_brush.InterpolationColors = color_blend
e.Graphics.FillRectangle(black_white_brush, _
x, y, ancho, alto)

Variante 2

Dim y As Integer = 0
Dim x As Integer = 0
Dim ancho As Integer = Me.Width
Dim alto As Integer = Me.Height
Dim color1 As Color
Dim color2 As Color

color1 = Color.DarkRed
color2 = Color.LightCoral

Dim colorear As New _
LinearGradientBrush( _
New Point(x, y), New Point(x + ancho, y), _
color1, color2)

Dim diag_brush As New _
LinearGradientBrush( _
New Point(x, y), New Point(x + ancho, y + alto), _
color1, color2)
e.Graphics.FillRectangle(diag_brush, _
x, y, ancho, alto)

Si te sirvieron, por favor, deja un comentario. Saludos