USUÁRIO:
SENHA:
SALVAR LOGIN ?
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-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site
