Mostrar Mensajes
Mira:
Código:
Private Sub Text1_Keydown(Keycode As Integer, shift As Integer)
Select Case Keycode
Case vbKeyUp
Text1.SetFocus
Case vbKeyDown
Text2.SetFocus
Case vbKeyLeft
Text3.SetFocus
Case vbKeyRight
Text4.SetFocus
End Select
End Sub
En el primer case al ser el primer objeto que toma el foco y no tener otro por encima, no hace falta que le pongas vbkeyup para que se tome el foco puesto que ya lo tiene, lo he dejado para que te hagas una idea de como van el resto de txt y poder tenerlos controlados con las flechas.
Con la funcion SelStart=0 si hay texto introducido toma el foco en la posicion 0 (en el principio) por si te es de utilidad.
Código:
Private Sub Text1_Keydown(Keycode As Integer, shift As Integer)
Select Case Keycode
Case vbKeyUp
Text1.SetFocus: Text1.SelStart = 0
Case vbKeyDown
Text2.SetFocus: Text2.SelStart = 0
Case vbKeyLeft
Text3.SetFocus: Text3.SelStart = 0
Case vbKeyRight
Text4.SetFocus: Text4.SelStart = 0
End Select
End Sub
Un saludo.