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

Eynar · #1 (**permalink**) 05-09-2006, 14:48:14

Saludos a tod@s.

Tengo varios controles DTPicker con los cuales manejo fechas y horas, pero necesito que el usuario pueda pasar el foco al siguiente control al pulsar la tecla ENTER.

He puesto el siguiente código en el evento keypress de los DTPicker y no me funciona, tengo que pasarme al siguiente control manualmente.

Código:

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

El mismo código lo tengo en los eventos keypress de los textos y demás controles y me funcionan bien, pero hasta el momento sólo con el DTPicker no me funciona este código.

¿Será que se pueda o no?

Desde ya muchas gracias.

Saludos y bendiciones.

jrios03 · #2 (**permalink**) 05-09-2006, 15:41:04

Cambia el KeyPress por un Keydown... algo así:

Código:

Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    KeyCode = 0
    SendKeys "{Tab}"
  End If
End Sub

Esto te servirá para lo que quieres hacer...

Saludos... :smt004

Eynar · #3 (**permalink**) 05-09-2006, 16:46:56

Muchas gracias, me funcionó a como lo necesitaba.

Saludos y bendiciones.