' Pasar de un TextBox a otro al pulsar Enter
' Inserte tres TextBox y escriba el siguiente código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
' ////////////////////////////////////////
' otra forma
' ////////////////////////////////////////
' Pasar de un TextBox a otro al pulsar Enter (II Parte):
' Inserte tres TextBox, cambie la propiedad KeyPreview del formulario a True y escriba el siguiente código:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub