'con este código muestro como saber si esta activa la tecla NUMLOCK no es de mi autoria copie el
'código y simple mente lo modifique y adapte a la necesidad que tuve lo publico pues a otras
'personas puede servir
'primero la librería en un modulo
Option Compare Database
Option Explicit
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
-------------------------------------------------------------------------------------------------------------------------------------
Public Sub Boton_NUMLOCK_Click()
If GetKeyState(144) = 0 Then SendKeys "{NUMLOCK}" 'Aquí verificamos si la tecla num lock está apagado que sería el valor de (0) entonces lo activaremos con el SendKeys "{NUMLOCK}"
End Sub
'ya con este ejemplo podemos adaptar mas eventos de teclas a nuestras necesidades
Comentarios sobre la versión: 01 (0)
No hay comentarios