编程获得键盘上的“Num Lock”“Caps Lock”“Scroll Lock”的当前状态

编程获得键盘上的“Num Lock”“Caps Lock”“Scroll Lock”的当前状态

用VB.NET实现


API函数声明
Public Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Integer) As Integer

'取键盘Caps Lock键的状态
If (GetKeyState(&H14) And 1 = 1) Then
            Me.Text = "灯亮"
Else
            Me.Text = "灯灭"
End If


上面程序当中的&H14
换成
&H91
就是
Scroll Lock键的状态，

换成&H90就是
Num Lock的状态.