Degradar painel de cores - (Gradiente)

Desta vez, quero mostrar uma maneira simples de ter um painel muito mais atraente com um gradiente de duas cores em visual basic. net .

Por exemplo temos uma forma e um painel, como mostrado na figura seguinte:

Em seguida, clique duas vezes no painel e vá para pintar o painel de evento na opinião de código, e este evento coloque o seguinte código:

 Y As Integer Dim = 0
 Dim x As Integer = 0
 Dim largura As Integer = Me.Width
 Alta Dim As Integer = Me.Height
 Color1 Dim Cor
 Color2 Dim Cor

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Cor Dim _
 LinearGradientBrush (_
 New Point (x, y), Ponto Novo (x + largura, y), _
 color1, color2)
 e.Graphics.FillRectangle (coloração, _
 x, y, largura, altura)
 y + height = + 10

Para este trabalho nós adicionamos uma referência de código Drawing2D como mostrado abaixo:

 Importações System.Drawing.Drawing2D

Executando o programa deverá ver um formulário com uma aparência semelhante à figura a seguir:

Alterando os valores das variáveis ​​e Color1 color2 pode alterar os resultados a seu gosto.

Também quero deixar então um par de variantes para o evento pintura painel de código reemplaar e obter resultados diferentes ... Eu espero que você experimentá-los e eles gostam ...

Opção 1

 Y As Integer Dim = 0
 Dim x As Integer = 0
 Dim largura As Integer = Me.Width
 Alta Dim As Integer = Me.Height
 Color1 Dim Cor
 Color2 Dim Cor

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim _ black_white_brush
 LinearGradientBrush (_
 New Point (x, y), Ponto Novo (x + largura, y), _
 color1, color2)

 Dim ColorBlend color_blend (3)
 color_blend.Colors = Nova Cor () {color1, color2, color1}
 color_blend.Positions = Single New () {0,0, 0,2, 1,0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle (black_white_brush, _
 x, y, largura, altura)

Opção 2

 Y As Integer Dim = 0
 Dim x As Integer = 0
 Dim largura As Integer = Me.Width
 Alta Dim As Integer = Me.Height
 Color1 Dim Cor
 Color2 Dim Cor

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Cor Dim _
 LinearGradientBrush (_
 New Point (x, y), Ponto Novo (x + largura, y), _
 color1, color2)

 Dim _ diag_brush
 LinearGradientBrush (_
 New Point (x, y), Ponto Novo (x + largura, y + altura), _
 color1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, largura, altura)

Se você serviu, por favor deixe um comentário. Atenciosamente