Ola pessoal preciso dum Help ai

Como monto uma rotina pra movimentacao do foco nos meus text box usando as setas do teclado?

Tipo do text1 pro text2 usaria setas pra direita o contrario setas pra esquerda

ou usaria setas pra cima e pra baixo

como Monto isso?

Deus abençoe a todos

 

tenta Assim

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'faz funcionaro o tab do teclado pra mudar de txt
If KeyCode = 40 Then

End If
End Sub

Usa o KeyPress no lugar do KeyDown.. é processado primeiro...

Vc deve, em cada Text, detectar o pressionar da seta (pelos codigos ASCII) e direcionar com o SetFocus para o Text desejado...

TENTA ASSIM

 

1º COLOCA NA PROPRIEDADE DO TEU FORM COMO KEYPREVIEW=TRUE

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
    If KeyCode = vbKeyLeft And ActiveControl.SelStart = 0 Then
        SendKeys "+{tab}"
    ElseIf KeyCode = vbKeyRight And ActiveControl.SelStart = Len(ActiveControl.Text) Then
        SendKeys "{tab}"
    End If

End Sub

 

 

ESPERO TER AJUDADO

 

vbbasic 10 esse exemplo seu so esta pegando as setas direita e esquerda

Pessoal eu entendi belz mas eu preciso é do codigo ASCII q o Elieser mencionou

Qual o Codigo na tabela ASCII q corresponde as setas do teclado?

Help por favor se alguem tiver me passa ou me da uma dica de onde encontro a tabela pelomenos

Deus vos Abençoe