Cómo capturar pulsación de las teclas paréntesis "(&quo - VB-MUNDO

J.M.Movilla · #1 (**permalink**) 30-08-2007, 20:29:08

Me siento incapaz de continuar dándome contra el muro. Llevo horas intentándolo y no consigo capturar la entrada de esos caracteres en ningún evento del TextBox, al ser un carácter que conlleva una combinación de pulsaciones, con [Mayús] + [8] / [9]. Ojalá alguno de vosotros lo tengáis resuelto. Gracias por la atención.

acalanto · #2 (**permalink**) 30-08-2007, 21:27:48

Creo estimado amigo que la solución pasa por algo parecido a el código adjunto, a pesar de que no le encuentro explicación lógica.

Código:

Option Explicit

    Dim anular As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 1 And KeyCode = 56 Then
        anular = True
    ElseIf Shift = 1 And KeyCode = 57 Then
        anular = True
    Else
        anular = False
    End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
    If anular = True Then
        KeyAscii = 0
    End If
End Sub

J.M.Movilla · #3 (**permalink**) 30-08-2007, 22:42:29

Bueno, bueno... Qué gusto da consultar a quien sabe respondernos... Ni que decir tiene que "te debo una"... (Bueno, una más...). Muchas gracias.

Aunque la respuesta no era totalmente exacta, fue suficientemente significativa para que (como suele ocurrir con la mayoría de las respuestas de un foro) con un pequeño ajuste personal, haya encontrado la solución. Que es ésta:

Código:

Dim anular As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 1 Then
        anular = True       ' SE HA PULSADO LA MAYÚSCULA....
    Else
        anular = False
    End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If anular = True Then
        If KeyAscii = 40 Then  ' 40 es el Ascii de la techa [8]... que con la previa pulsación de [Mayus]... YA´TÁ...
            ' Pulsé "("
        ElseIf KeyAscii = 41 Then
            ' Pulsé ")"
        End If
        KeyAscii = 0
    Else
        ' Otros controles...
    End If
End Sub