230问答网 > 【【【【【【【【【【vb注册全局热键，如何实现Ctrl+Alt+小键盘加号的热键？】】】】】】】】】】

【【【【【【【【【【vb注册全局热键，如何实现Ctrl+Alt+小键盘加号的热键？】】】】】】】】】】

最好能给出所有键盘的按键注册方法，谢谢啊

2025-03-01 02:11:36

推荐回答（1个）

回答1：

1.模块Module1.bas代码：
Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_Delete = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
Public nfIconData As NOTIFYICONDATA
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * MAX_TOOLTIP
End Type

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal OldwndProc As Long, ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const GWL_WNDPROC = -4
Public OldwndProc As Long

Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal HotKeyID As Long, ByVal fsModifiers As Long, ByVal vKey As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal HotKeyID As Long) As Long

Public Const WM_HOTKEY = &H312
Public Const WM_NCDESTROY = &H82

Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Const MOD_SHIFT = &H4
Public Const MOD_WIN = &H8

Public Function WindowProc(ByVal hwnd As Long, ByVal WindowMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case WindowMsg
Case WM_HOTKEY
Select Case wParam
Case 1 '第一个热键ID=1
Call Form1.ShowForm '按下热键后启动的窗体中的模块
End Select
End Select
WindowProc = CallWindowProc(OldwndProc, hwnd, WindowMsg, wParam, lParam)
End Function

2.启动中窗体里面的代码：
Private Sub Form_Load()
Call InitHotKey '热键启动
End Sub

Private Sub InitHotKey()
OldwndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc)
Call CreateHotkey(1, 49, 2) 'Ctrl+1 *设置热键 1代表模块中的ID=1，49（你懂的Asc码1），2代表Ctrl
End Sub

热键按下后的动作：
Public Sub ShowForm() '模块中有的Form1.ShowForm
msgbox "Show Form"
End Sub

最新问答

手机qq空间怎么取消卡片装扮？

谁能生成个序列号？ Autodesk 3ds Max 9 序列号⼀编组 ID: 000

想要把小件的树脂工艺品抛光怎么做

跪求苏州新区什么厂和香格里拉对面冠捷做得产品差一样的，招聘维修的。高手谢谢回答

喝多了酒后2--4小时时会出现手臂、腿疼痛（特别是手臂），求快速有效的解决方法

我刚成为预备党员，说上级党委还要派人下来谈话，她们会问什么？我该怎么回答？谢谢