VB全局热键~~例如我按下Alt+F1某个Check就选中了 不是全局的也行

来源：百度知道 编辑：UC知道 时间：2024/07/04 01:05:20
VB全局热键~~例如我按下Alt+F1某个Check就选中了 不是全局的也行 说的好可以追加100分
如何设置多个啊~~例如我想按F1选中Check1 那再按F2选中Check2

100分！！！好，帮你做

先在工程窗口里添加模块（Modulel.bas）把以下代码复制进去：
Option Explicit

Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function CallWindowProc Lib "User32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function RegisterHotKey Lib "User32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Declare Function UnregisterHotKey Lib "User32" (ByVal hwnd As Long, ByVal id As Long) As Long

Public Const WM_HOTKEY = &H312
Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Co