CRIANDO EFEITO DEGRADE EM FORMULÁRIOS DO VB.NET

 

Durante as aulas de progoramação em Visual Basic, uma pergunta recorrente dos alunos é: “É possível colocar duas cores no formulário?” Essa vpergunta se justifica, para sair do formulário com cores padrão ou a inserção de imagens de fundo que sobrecarrega o aplicativo em desenvolvimento.

 

A resposta é simples e opbjetiva: Sim, é possível.

 

Veja um formulário básico sem alteração na propriedade  BackColor:

 

 

 

Agora, veja o formulário já com a programação que define um efeito degrade em execução:

 

 

 

Diferente, não?

 

 

Para criar esse efeito, abra o Visual Studio e crie uma nova aplicação na Linguagem Visual Basic:

 

 

Já com o form1 visível, acesse o seu evento PAINT para a inserção dos códigos:

 

 

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

       

a.  Dim retangulo As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)

 

b.  Dim meu_efeito As Brush = New Drawing.Drawing2D.LinearGradientBrush(retangulo, Color.BlueViolet, Color.BurlyWood, Drawing.Drawing2D.LinearGradientMode.BackwardDiagonal)

 

c.  e.Graphics.FillRectangle(meu_efeito, retangulo)

 

 

    End Sub

 

Entendendo os códigos:

 

Cria um  novo retângulo com largura e altura iguais ao seu formulário

Cria um novo gradiente e altera as cores para poder dar diferentes combinações

Com a ajuda da função fillrectangle desenha o retângulo (com a combinação de cores já definidas) no formulário.

 

Color.BlueViolet, Color.BurlyWood à São as cores que estão se misturando para dar o efeito desejado. Note que você tem uma variedade enorme de cores para testar. Veja aqui os nomes das cores no Visual Basic.

 

A opção Drawing.Drawing2D.LinearGradientMode, possibilita outros efeitos visuais:

 

 

 

 

 

 

 

 

Teste as opções para um melhor aproveitamento dos commandos.