|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Label em 3 Estados
|
 |
|
|
|
Postada em 30/12/2004 por Rinaldo
Com um único clique você pode fazer com que em um Label apareça uma letra diferentes a cada click. Insira um Label e coloque em sua propriedade caption a letra A, depois insira o código abaixo:
Private Sub Label1_Click()
If Label1 = "A" Then
Label1 = "B"
ElseIf Label1 = "B" Then
Label1 = "C"
ElseIf Label1 = "C" Then
Label1 = "A"
End If
End Sub
Obs.: Aqui utilizei um label, mas poderia ter utilizado um TextBox ou até um shape que Shape que mudaria de cor a cada clique, é só adptar o código.
T+
Rinaldo
.::::.
Pedindo permissão para o Rinaldo e aproveitando essa boa dica que ele passou vc pode tb fazer um Banner com uma simples Label......vc vai precisar de 1 Time e de 1 Label...
Configure o Interval do time como 1000 e o caption da Label escreva "VBWEB 2005"..... coloque esse código:
Private Sub Timer1_Timer()
If Label1.Caption = "VBWEB 2005" Then
Label1.ForeColor = vbRed
Label1.Font.Size = 18
Label1.Caption = "O Portal do desenvolvedor"
Else
Label1.Caption = "VBWEB 2005"
Label1.ForeColor = vbBlue
Label1.Font.Size = 15
End If
End Sub
Obrigado pelo espaço e pela dica Rinaldo....
Los Zeus®
Administrador VBWEB
|
|
|
|
|
