Do Básico ao Avançado
Home | Tutoriais | Artigos |Contato

Como mudar a cor do formulário toda vez que ele for aberto.



Neste tutorial criaremos um código VBA para mudar a cor do formulário sempre for aberto, ou seja, toda vez que o formulário for executado ele abrirá com uma nova cor.


No Editor do Visual Basic crie um formulário simples como este da imagem abaixo:


UserForm


No evento Initialize do Formulário adicione o seguinte código:


Private Sub UserForm_Initialize()

Dim sCor As Integer 'Declara a variável sCor

Randomize

' o número 7 representa o valor máximo e o 1 o valor mínimo,

' você pode alterar esses números de acordo com suas necessidades

sCor = CInt(Int((7 * Rnd()) + 1))

 

If sCor = 1 Then

UserForm2.BackColor = vbGreen

ElseIf sCor = 2 Then

UserForm2.BackColor = vbRed

ElseIf sCor = 3 Then

UserForm2.BackColor = vbBlue

ElseIf sCor = 4 Then

UserForm2.BackColor = vbYellow

ElseIf sCor = 5 Then

UserForm2.BackColor = vbMagenta

ElseIf sCor = 6 Then

UserForm2.BackColor = vbCyan

ElseIf sCor = 7 Then

UserForm2.BackColor = vbWhite

End If

End Sub



Deverá ficar como na imagem abaixo:




Neste exemplo usamos a função Randomize para gerar um número aleatório de 01 a 07 quando o formulário for acionado e usamos a função condicional If para especificar a cor do formulário de acordo com o número que foi gerado aleatoriamente o qual também define o valor da propriedade BackColor (cor do formulário).


Faça um teste executando o formulário e verá que ele muda de cor a cada execução.


Veja alguns exemplos:


Formulário


Formulário


Formulário


Um detalhe interessante é que neste exemplo foram usadas as constantes: vbBlack, vbBlue, vbCyan, vbGreen, vbMagenta, vbRed, vbWhite e vbYellow, porém, usando a função RGB podemos obter outras cores, portanto, se você quiser exibir outras cores eu aconselho a utilizar função RGB, porque através desta função podemos usar o valor das combinações de cores.


Veja um exemplo de como ficaria o código usando a função RGB:


UserForm2.BackColor = RGB(191, 219, 255)



Para ir mais além: Para melhorar a aparência de seu formulário sugiro alterar também as cores de outros elementos do formulário, como: Botões de Comando, Rótulos, Quadros, Botão de rotação, etc.


Veja como ficaria o código do formulário utilizado neste tutorial com a alteração de cores de todos os controles:


Código VBA


Agora veja algumas imagens do formulário em tempo de execução.


UserForm que muda de Cor


Formulário que muda de cor


Formulário que muda de cor


Faça download do arquivo usado como exemplo neste tutorial: Baixar Arquivo











Conteúdo Correspondente:




eBook Word 2010 VBA

© 2013 Tutoriais Word - Todos os direitos reservados