SE MOVIMENTANDO NOS CAMPOS COM AS SETINHAS DIRECAO
Boa tarde Galera !!!
Galera é o seguinte...
estou criando uma tela de cadastro com 10 campos
gostaria de utilizar as teclas de movimentação para movimentar nestes
campos de cima pra baixo, de baixo pra cima, da direita pra esquerda, etc
fiz um exemplo onde fiz as teclas equivalerem a TAB, mas não ficou
do jeito que eu queria.
Por favor se alguem souber me ajudem
Galera é o seguinte...
estou criando uma tela de cadastro com 10 campos
gostaria de utilizar as teclas de movimentação para movimentar nestes
campos de cima pra baixo, de baixo pra cima, da direita pra esquerda, etc
fiz um exemplo onde fiz as teclas equivalerem a TAB, mas não ficou
do jeito que eu queria.
Por favor se alguem souber me ajudem
Na verdade, VC teria que prever em todos os campos quando ele clicar na seta, pra qual ele deveria ir.
Vamos supor que VC esteja no txt5, e quando ele clicar na seta esquerda, VC teria que programar pro foco ir pro txt4.
Se ele clicar acima, programar para ir com o foco para o txt3
se ele clicar direita, programar para ir com o foco txt6
se ele clicar abaixo, programar para ir com o foco txt7
Será "fróida" VC prever tudo isso em todos os campos, mas é uma forma de se fazer isso.
Vamos supor que VC esteja no txt5, e quando ele clicar na seta esquerda, VC teria que programar pro foco ir pro txt4.
Se ele clicar acima, programar para ir com o foco para o txt3
se ele clicar direita, programar para ir com o foco txt6
se ele clicar abaixo, programar para ir com o foco txt7
Será "fróida" VC prever tudo isso em todos os campos, mas é uma forma de se fazer isso.
como o lcsd falo vc vai ter que prever no keydown
tipo assim
ai vc vai ter que fazer isso em todos os text
tipo assim
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Text4.SetFocus
ElseIf KeyCode = vbKeyDown Then
Text5.SetFocus
ElseIf KeyCode = vbKeyRight Then
Text3.SetFocus
ElseIf KeyCode = vbKeyLeft Then
Text2.SetFocus
End If
End Sub
ai vc vai ter que fazer isso em todos os text
complementando
keydown ou keyup
keydown: quando o botão afunda
keyup: quando o botão sobe
keydown ou keyup
keydown: quando o botão afunda
keyup: quando o botão sobe
Tópico encerrado , respostas não são mais permitidas