Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst WM_SETHOTKEY = &H32 Const HOTKEYF_SHIFT = &H1 Const HOTKEYF_CONTROL = &H2 Const HOTKEYF_ALT = &H4Private Sub Form_Load() Dim l As Long Dim wHotkey As Long '设置热键为Ctrl+Alt+A wHotkey = (HOTKEYF_ALT Or HOTKEYF_CONTROL) * 256 + vbKeyA l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0) End Sub
Const HOTKEYF_SHIFT = &H1
Const HOTKEYF_CONTROL = &H2
Const HOTKEYF_ALT = &H4Private Sub Form_Load()
Dim l As Long
Dim wHotkey As Long
'设置热键为Ctrl+Alt+A
wHotkey = (HOTKEYF_ALT Or HOTKEYF_CONTROL) * 256 + vbKeyA
l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)
End Sub