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.