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:  Tab Automatico (Simples)
Postada em 13/3/2007 por Edinei      Clique aqui para enviar email para o autor  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
 


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