窗体成为焦点或者没有成为焦点时都可以用的热键,应该用到哪个API?

这样的问题应该先问百度
不是不知道回答,而是回答的太多了别人都懒得重复回答了

GETKEYSTAT + timer

三段兄，不要这么小气么

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF2) Then
    Print "按了F2";
End If
End Sub
Timer1的Interval 设为1

用Hook比较省资源 代码就不发了

先建立个函数  响应热键事件
Public Sub ShowQuick(keycodee As Integer)
 If keycodee = vbKeyF1 Then Call 事件1
 If keycodee = vbKeyF3  Then Call 事件2
If keycodee = vbKeyF6   Then Call 事件3
 If keycodee = 115 Then Call 事件4
 If keycodee = vbKeyF8 Then Call 事件5
If keycodee = vbKeyF9 Then Call 事件6
 If keycodee = 122 Then Call 事件7
If keycodee = vbKeyF12 Then Call 事件8

End Sub

再在窗体 KeyDown 事件中调用就可以啊
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim CtrlDown
    Call ShowQuick(KeyCode)
    CtrlDown = (Shift And vbCtrlMask) > 0
    If KeyCode = vbKeyReturn Then
        If CtrlDown Then
            Call cmdOK_Click
        End If
    End If
   这是我以前系统里面的 例子

有价值哦。