我们知道GetAsyncKeyState可以用来为程序设置单个热键，但如果是设置一组热键（如：Ctrl+F12）的话，可不可以仍然用这个函数呢？具体怎么

[biku]

我们知道GetAsyncKeyState可以用来为程序设置热键，但如果是设置一组热键（如：Ctrl+F12）的话，可不可以仍然用这个函数呢？具体怎么用呢？

[bydisplay]

不可以
If Shift = 2 And KeyCode = vbKeyF12 Then
End
End If

[刘洪峰AIoT]

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_F12 = &H7B
Private Const VK_CONTROL = &H11

Private Sub Timer1_Timer()
Dim a As Integer
a = GetAsyncKeyState(VK_F12)
Dim b As Integer
b = GetAsyncKeyState(VK_CONTROL)

If (a And &H8000) And (b And &H8000) Then
MsgBox "Ctrl+F12"

End If

End Sub

[griefforyou]

UP.

[biku]

to：yefanqiu(叶帆) 谢谢您的回答，不过&H8000是指什么？

[刘洪峰AIoT]

即：1000 0000 0000 0000，然后让它GetAsyncKeyState的值进行逻辑加（And - &)
意思是只取最高位的值（这个位置的值标识键是否按下)。

注:如键目前处于按下状态，则位15设为1；如抬起，则为0