Access Lab

Como cambiar el estado del NumLock

Define estas funciones API en la sección Declaraciones de cualquier módulo:

Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long

Y a continuación esta función:

Function chgKeyStatus(codigo)
Dim k(255) As Byte, l As Long
l = GetKeyboardState(k(0))
If k(codigo) = 0 Then
    k(codigo) = 1
Else
    k(codigo) = 0
End If
l = SetKeyboardState(k(0))
End Function

Para cambiar el estado del Bloqueo numérico, basta con llamar a esa función con el código de tecla correspondiente:

chgKeyStatus &H90

Volver a AccessLab