真心求教 VB中如何获得CapsLock的状态

pwj7

诚心求知道的朋友 回复一下 谢谢!!! [em19]

liuhan

加个StatusBar控件就可实现，我使用这种方法，因为程序中正好用上StatusBar，不知是否有其它的方法。

pwj7

    可以使用GetKeyboardState获得所有按键的状态，参考：
    Private Declare Function GetKeyboardState Lib "user32" _
     (pbKeyState As Byte) As Long
     
     
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     Dim keys(0 To 255) As Byte
     GetKeyboardState keys(0)
     
     If keys(vbKeyA) >= 128 And keys(vbKeyRight) >= 128 Then
     Print "OK"
     End If
    End Sub

pwj7

liuhan ：请问StatusBar控件是怎么实现CapsLock的状态的 请指点一下
我找搜索了一下网上的资料还是找不到 能不能给出关键代码 谢谢

liuhan

窗体内加上StatusBar及Command粘贴以下代码试运行：

Private Sub Command1_Click()
    If StatusBar1.Panels(2).Enabled = True Then MsgBox "Caps Lock"
End Sub

Private Sub Form_Load()
    StatusBar1.Panels.Add , , , 1
End Sub

pwj7

强!!太感谢了