none
como bloquear y desbloquear el teclado numérico en visual net 2019 RRS feed

  • Pregunta

  • me han dado este ejemplo . pero no se como desbloquear el teclado numerico, ya que con este codigo solo lo bloquea

    Declaraciones

     Private Property vbKeyNumlock As Byte
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long):

    creamos el proceso

       Public Sub SendNumLock()

            Const KEYEVENTF_EXTENDEDKEY = &H1
            Const KEYEVENTF_KEYUP = &H2
            Const VK_NUMLOCK = &H90
            keybd_event(VK_NUMLOCK, vbKeyNumlock, KEYEVENTF_EXTENDEDKEY Or 0, 0)
            keybd_event(VK_NUMLOCK, vbKeyNumlock, KEYEVENTF_EXTENDEDKEY Or
            KEYEVENTF_KEYUP, 0)

        End Sub

    y luego mandas a llamar el proceso  desde donde lo necesites

    SendNumLock()


    jhon fonttz

    domingo, 4 de abril de 2021 2:38

Todas las respuestas

  • Ese código que has mostrado lo que hace es simular que se ha pulsado la tecla "Num Lock". Esta tecla bloquea cuando la pulsas y desbloquea si la vuelves a pulsar. Por lo tanto el mismo código debería servir tanto para bloquear como para desbloquear. Cada vez que lo ejecutas cambia el estado de bloqueado a desbloqueado y viceversa.

    Esto plantea la cuestión de cómo saber si inicialmente estaba bloqueado o desbloqueado, para saber si hay que llamar o no hay que llamar a la rutina que cambia su estado. No sé la respuesta a esta última pregunta, pero podrías plantearla por separado en otro mensaje del foro.

    domingo, 4 de abril de 2021 6:52
  • Hola Jhon,

    Gracias por levantar tu consulta en los foros de MSDN.

    Eric Ruiz

    ____________________________

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

    Si tiene algún cumplido o reclamo sobre el soporte de MSDN siéntase en la libertad de contactar MSDNFSF@microsoft.com.

    lunes, 5 de abril de 2021 13:50
    Moderador