Javier
28 de Julio del 2003

como puedo pasar de un textbox a otro con el intro sin tener que dar al tabulador? para meter muchos datos e ir mas rapido

gracias por la ayuda

Terion
28 de Julio del 2003

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Johann Etienne
28 de Julio del 2003

Que tal, mira con este procedimiento podras pasar de un text a otro, y no tendras que ponerlo en cada uno de los mismos, solo haz lo siguiente....

Sub EnterTab(Salto as Integer()
If Salto = VbKeyReturn Then SendKeys "{Tab}"
End Sub

Este procedimiento lo ejecutaras en el control de la Form, en su evento Keypress

Sub From1_Keypress(KeyAscii as integer)
EnterTab Keyascii
End sub

Ahora solo basta, que en las propiedades de la forma elijas la que indica el "KeyPreview", cambiando su valor a "True", ordena el TabIndex, segun el orden que deseas y listo, ahorraras muchisimas lineas con este pequeño código.

Johann Etienne
28 de Julio del 2003

Que tal, mira con este procedimiento podras pasar de un text a otro, y no tendras que ponerlo en cada uno de los mismos, solo haz lo siguiente....

Sub EnterTab(Salto as Integer()
If Salto = VbKeyReturn Then SendKeys "{Tab}"
End Sub

Este procedimiento lo ejecutaras en el control de la Form, en su evento Keypress

Sub Form1_Keypress(KeyAscii as integer)
EnterTab Keyascii
End sub

Ahora solo basta, que en las propiedades de la forma elijas la que indica el "KeyPreview", cambiando su valor a "True", ordena el TabIndex, segun el orden que deseas y listo, ahorraras muchisimas lineas con este pequeño código.