16,553
社区成员
发帖
与我相关
我的任务
分享怎样获得键盘上的“Num Lock”“Caps Lock”“Scroll Lock”的当前状态？急！
如题。另外我想在StatusBar中把他们的状态表示出来，应该怎样做？希望能提供sample代码。
...全文
请发表友善的回复…
发表回复
pshy 2005-02-22
- 打赏
- 举报
学习ing
h2y3641 2005-02-22
- 打赏
- 举报
And 1 = 1什么意思
hidejay 2005-02-22
- 打赏
- 举报
无敌了~O~
haoztao 2005-02-22
- 打赏
- 举报
向楼上得学习！
chenyuming2004 2005-02-22
- 打赏
- 举报
&H14
换成
&H91
就是
Scroll Lock键的状态，
换成&H90就是
Num Lock的状态.
换成
&H91
就是
Scroll Lock键的状态，
换成&H90就是
Num Lock的状态.
chenyuming2004 2005-02-22
- 打赏
- 举报
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
'取键盘Caps Lock键的状态
If (GetKeyState(&H14) And 1 = 1) Then
Me.Text = "灯亮"
Else
Me.Text = "灯灭"
End If
