Como pasar de un texto a otro usando Enter

ANTRAX · Julio 26, 2010, 10:28:10 AM

Insertar tres TextBox y escribir el siguiente código:

Código: vb

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:
Insertar tres TextBox, cambiar la propiedad KeyPreview del formulario a True y escribir el siguiente código:

Código: vb

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Como pasar de un texto a otro usando Enter

ANTRAX

Julio 26, 2010, 10:28:10 AM Ultima modificación: Julio 08, 2011, 10:05:24 AM por ANTRAX