USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página