none
Intrceptar la tecla Intro RRS feed

  • Pregunta

  • <!-- /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman";} @page Section1 {size:595.3pt 841.9pt; margin:70.85pt 3.0cm 70.85pt 3.0cm; mso-header-margin:35.4pt; mso-footer-margin:35.4pt; mso-paper-source:0;} div.Section1 {page:Section1;} -->

    Hola y gracias por atenderme.

    Necesito controlar cuando se pulsa Intro sobre un Cuadro de Lista, he probado con el evento Al presionar una tecla:

    Private Sub NombreListBox_KeyPress(KeyAscii As Integer)

        If KeyAscii = vbKeyReturn Then

            MsgBox "Se ha pulsado Intro" ‘Solo para comprobar

        End If

    End Sub

    No me da el mensaje y el foco pasa al siguiente control en el Orden de Tabulación.

    Agradecería mucho cualquier ayuda.

    Saludos.

    jueves, 21 de mayo de 2009 8:35

Respuestas

  • Hola!

    mejor utiliza el evento al bajar una tecla, y ten en cuenta que el return es el código ASCII 13

    Private Sub NombreListBox_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then MsgBox "Se ha pulsado Intro"    'Solo para comprobar
    End Sub
    Saludos a tod@s desde Huelva
    sábado, 23 de mayo de 2009 17:27

Todas las respuestas

  • Hola!

    mejor utiliza el evento al bajar una tecla, y ten en cuenta que el return es el código ASCII 13

    Private Sub NombreListBox_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then MsgBox "Se ha pulsado Intro"    'Solo para comprobar
    End Sub
    Saludos a tod@s desde Huelva
    sábado, 23 de mayo de 2009 17:27
  • ¡Perfecto!
    Justo lo que necesitaba, te agradezco muchisimo tu ayuda.
    Saludos y gracias.
    miércoles, 27 de mayo de 2009 8:28