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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Incrementando Letras em um label com um click
Postada em 21/8/2006 por Crudo         
Com o pequeno fraguemento de código abaixo é possivel incrementar letras com apenas um click no label

Private Sub Label1_Click()
Label1.Caption = Chr(Asc(Label1.Caption) + 1)
If Label1.Caption = Chr(Asc("Z") + 1) Then Label1.Caption = "A"
End Sub
 


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