将窗体的keypriview属性设成False,可以先由窗体捕获按键,这时候在keydown等键盘事件中对你定义的热键进行相应的处理就可以了,如Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyB If Shift = vbCtrlMask Then '添加对Ctrl+B的相应 MsgBox "你按下了Ctrl+B" End If Case vbKeyD If Shift = vbAltMask Then '添加对Alt+D的相应 MsgBox "你按下了Alt+D" End If End Select End Sub
Select Case KeyCode
Case vbKeyB
If Shift = vbCtrlMask Then
'添加对Ctrl+B的相应
MsgBox "你按下了Ctrl+B"
End If
Case vbKeyD
If Shift = vbAltMask Then
'添加对Alt+D的相应
MsgBox "你按下了Alt+D"
End If
End Select
End Sub