编程获得键盘上的“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的状态.