Programación General > Visual Basic 6.0 e inferiores

 Re: tecla enter

(1/2) > >>

Jorge López:
hola a todos ....


Tengo un formulario de productos, los que quiero es que al darle enter se pase al siguiente textbox o campo en el formulario..

saludos

SpeedCAD:

SpeedCAD:
Hola...

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

Con esto del Text1 salta al Text2 al darle enter...

Jorge López:
Gracias....colocare este codigo...mil gracias amigo

piluka:
sería más útil establecer la propiedad KeyPreview del formulario a True y poner el código en el evento KeyPress del propio formulario, es decir:

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        sendkeys "{TAB}", True
    End If
End Sub

lo que se consigue con esto es reemplazar la pulsación del Enter por la Tabulación, no siendo necesario establecer código para cada una de las cajas de texto.

un saludo.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente