怎么在窗体上用一个按钮控制大小字母切换键的指示灯状态 - 编程论坛

#2

Artless2013-12-30 13:31

试试sendkeys

#3

matengfei2013-12-30 18:56

回复 2楼 Artless

具体怎么写呢

#4

曾大虾2014-02-12 19:21

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) As Boolean
Private Const KEYEVENTF_KEYDOWN = &H0 '按下
Private Const KEYEVENTF_KEYUP = &H2 '弹起
Private Sub Command1_Click()
    If GetKeyState(&H14) = 0 Then
        ret = keybd_event(&H14, 0, KEYEVENTF_KEYDOWN, 0)
        ret = keybd_event(&H14, 0, KEYEVENTF_KEYUP, 0)
    Else
        ret = keybd_event(&H14, 0, KEYEVENTF_KEYDOWN, 0)
        ret = keybd_event(&H14, 0, KEYEVENTF_KEYUP, 0)
    End If
End Sub
'LWIN = &H5B
'RWIN = &H5C
'vbKeyCapital &H14 CAPS LOCK 键
'vbKeyNumlock &H90 NUM LOCK 键
'Scroll Lock &H91