usar tecla "enter" en vez de "tab" - VB-MUNDO

Eynar · #1 (**permalink**) 12-06-2006, 17:23:38

Hola a tod@s, mi problema es el siguiente:

Necesito que en vez de utilizar la tecla tab para saltar a los siguientes el usuario pueda usar la tecla enter para saltar al siguiente control que debe de llenar.

Saludos.

melkor · #2 (**permalink**) 12-06-2006, 19:34:02

En el evento KeyPress de cada caja de texto pon esto:

Código:

IF KeyAscii = 13 THEN
       SendKeys “{Tab}”                                                           
End If

Esto "captura" la pulsacion de la tecla "enter", y emula la pulsacion de la tecla "Tab". Asi que es como si fisicamente el usuario pulsara el tabulador

Eynar · #3 (**permalink**) 12-06-2006, 19:44:33

Ok, muchas gracias, voy a probarlo.

Me parece que hay una propiedad que hace eso pero no me acuerdo.

Bendiciones.

screw · #4 (**permalink**) 12-06-2006, 20:10:41

Otra forma que puedes utilizar:

Private Sub TXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtemp.SetFocus --Le pasas el foco al siguiente textbox
KeyAscii = 0 -- esto es para que no ejecute un sonido cuando se presiona enter
End If
End Sub

Saludos desde Costa Rica

Eynar · #5 (**permalink**) 12-06-2006, 20:26:34

Ok, muchas gracias, me funciona bien.

Sigo insistiendo que hay alguna propiedad que me permite hacer eso.

No sé si sólo funcionaba con las versiones anteriores de VB.

Bendiciones.

melkor · #6 (**permalink**) 13-06-2006, 12:04:00

Cita:

Empezado por screw

Otra forma que puedes utilizar:

Private Sub TXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtemp.SetFocus --Le pasas el foco al siguiente textbox
KeyAscii = 0 -- esto es para que no ejecute un sonido cuando se presiona enter
End If
End Sub

Saludos desde Costa Rica

Tu codigo requiere que en cada evento indiques cual es el siguiente control. Esto a priori puede ser muy util, pero si añades controles tienes que andar modificando codigo, mientras que si emulas el TAB solo tienes que modificar el tabindex como se haria normalemente.

PD: Viva .NET y sus manejadores de eventos XD

Eynar · #7 (**permalink**) 13-06-2006, 15:03:51

Queda mejor de esta manera:

Código:

Private Sub TXT1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    SendKeys "{Tab}" --Le pasas el foco al siguiente textbox
    KeyAscii = 0 -- esto es para que no ejecute un sonido cuando se presiona enter
  End If
End Sub

Bendiciones.