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