|
|
Postada em 07/11/2004 23:04 hs
Boa noite galera. Eu tenho um text box, e queria que depois que eu escrevesse o dado que contem 10 caracteres, automaticamente pulasse para a outra text box, sem precisar apertar o tab. Abraços
wagner mesquita
|
|
|
|
|
|
|
|
Postada em 08/11/2004 01:42 hs
VÊ SE FUNCIONA! Private Sub Text1_Change()
If Len(Text1) = 10 Then Text2.SetFocus
End Sub
|
|
|
|
|
|
Postada em 08/11/2004 07:08 hs
Acho melhor colocar esse código no evento KeyPress... E também, coloque a propriedade da TextBox MaxLength = 10 |
|
|
|
|
|
Postada em 08/11/2004 22:27 hs
Neste caso, o evento KeyPress e o evento Change vão funcionar do mesmo jeito. A única alteração seria colocar a propriedade "MaxLength = 10". |
|
|
|
Snake
|
ITAJUBÁ
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/11/2004 10:14 hs
Concordo com o colega que,o evento KeyPress e o evento Change vão funcionar do mesmo jeito. Eu acho mehlor no evento KeyUp !!! que é acionada quando a tecla é liberada pelo usuario !!! pois o evento KeyPress e o evento Change a cada caracter digitado pelo usuario irá fazer a verificação. Definindo o MaxLenght = 10 e colocando o codigo citado acima, o TextBox quando chegar em 10 caracteres ira bloquear a digitação e consequentemente o usuario ira liberar a tecla pressionada assim haverá a mudança de foco. |
|
|
|
|
|
Postada em 09/11/2004 21:48 hs
Gostaria de dar outra opção, no evento keypress escreva o seguinte: If len(Me.ActiveControl.Text) = Me.ActiveControl.MaxLenght Then Keyascii = 0 SendKeys "{TAB}" End If A única vantagem em relação ao que os colegas enviaram é que este código independe das caixas de texto, podendo ser copiado para vários controles sem alteração. Obs: Não esqueça de definir o MaxLenght. Um Abraço, Sandro. |
|
|
|
