|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Tab Automatico (Simples)
|
 |
|
|
|
Postada em 13/3/2007 por Edinei
neisjb@hotmail.com
'text1 e text2.maxlength pode-se substituir pela quantitade que vc quizer
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1.MaxLength = 2
If Len(Text1.Text) = (Text1.MaxLength) Then
SendKeys "{TAB}"
End If
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
Text2.MaxLength = 2
If Len(Text2.Text) = (Text2.MaxLength) Then
SendKeys "{TAB}"
End If
End Sub
|
|
|
|
|
