vb6.0中怎么判断大写锁定键是否打开

来源：百度知道 编辑：UC知道 时间：2024/06/18 12:28:58
在label1的caption中显示 大写锁定的状态
具体代码怎么写 请高手帮忙解决下~

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_CAPITAL As Long = &H14
Private Const VK_NUMLOCK As Long = &H90
Private Const VK_SHIFT = &H10

Private Sub Command1_Click()
If GetKeyState(VK_CAPITAL) Mod &HFF80 = 1 Then
label1.Caption = "当前处于大写状态"
Else
label1.Caption = "当前处于正常输入状态"
End If
End Sub