9
Ноябрь
2008
Как получить состояние клавиш Num Lock, Scroll Lock и Caps Lock?
Как получить состояние клавиш Num Lock, Scroll Lock и Caps Lock?
На форме должен находиться таймер.
Option Explicit
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Dim pbKey(0 To 255) As Byte
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Call GetKeyboardState(pbKey(0))
Me.Caption = IIf(pbKey(vbKeyNumlock), "NUM", "")
' Получить состояние клавиш Caps Lock и Scroll Lock можно
' таким же образом, только используя константы vbKeyScrollLock и
' vbKeyCapital
End Sub