Question

VB 全局热键

要求：按下HOME键，程序就执行一段代码，我要在激活其他程序的时候也能用热键运行的方法！ 最好能把一步一步的注释写出来。
我是要在ActiveX控件里按下HOME键则执行后面的代码,越详细越好，回答正确的追加100分

Answer 1

主窗体代码如下：
Option
Explicit
'程序启动时注册功能热键F12
Private
Sub
Form_Load()
Dim
Modifiers
As
Long
preWinProc
=
GetWindowLong(Me.hWnd,
GWL_WNDPROC)
SetWindowLong
Me.hWnd,
GWL_WNDPROC,
AddressOf
WndProc
uVirtKey
=
vbKeyDelete
RegisterHotKey
Me.hWnd,
1,
Modifiers,
uVirtKey
End
Sub
'当程序被关闭时，取消已经注册的热键
Private
Sub
Form_Unload(Cancel
As
Integer)
SetWindowLong
Me.hWnd,
GWL_WNDPROC,
preWinProc
UnregisterHotKey
Me.hWnd,
uVirtKey
'取消系统级热键,释放资源
End
'终止程序运行
End
Sub
添加一个标准模块，代码如下
Option
Explicit
'在窗口结构中为指定的窗口设置信息
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
GetWindowLong
Lib
"user32"
Alias
"GetWindowLongA"
(ByVal
hWnd
As
Long,
ByVal
nIndex
As
Long)
As
Long
'运行指定的进程
Public
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
'向系统注册一个指定的热键
Public
Declare
Function
RegisterHotKey
Lib
"user32"
(ByVal
hWnd
As
Long,
ByVal
ID
As
Long,
ByVal
fsModifiers
As
Long,
ByVal
vk
As
Long)
As
Long
'取消热键并释放占用的资源
Public
Declare
Function
UnregisterHotKey
Lib
"user32"
(ByVal
hWnd
As
Long,
ByVal
ID
As
Long)
As
Long
'上述五个API函数是注册系统级热键所必需的，具体实现过程如后文所示
'热键标志常数,用来判断当键盘按键被按下时是否命中了我们设定的热键
Public
Const
WM_HOTKEY
=
&H312
Public
Const
GWL_WNDPROC
=
(-4)
'定义系统的热键,原中断标示,被隐藏的项目句柄
Public
preWinProc
As
Long,
MyhWnd
As
Long,
uVirtKey
As
Long
'热键拦截过程
Public
Function
WndProc(ByVal
hWnd
As
Long,
ByVal
Msg
As
Long,
ByVal
wParam
As
Long,
ByVal
lParam
As
Long)
As
Long
If
Msg
=
WM_HOTKEY
Then
'如果拦截到热键标志常数
If
wParam
=
1
Then
'如果是我们的定义的热键...
HideDone
'执行隐藏鼠标所指项目
End
If
End
If
'如果不是热键,或者不是我们设置的热键,交还控制权给系统,继续监测热键
WndProc
=
CallWindowProc(preWinProc,
hWnd,
Msg,
wParam,
lParam)
End
Function
'最关键的项目隐藏过程
Public
Sub
HideDone()
MsgBox
"按下了Delete键"
End
Sub

Answer 2

VB本身没有全局热键一说，可以调用API获取键盘消息，否则只能对所有的对象分别写on_keypress。

Answer 3

新建一个模块，复制以下代码：
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 Const MOD_SHIFT = &H4
Public Const GWL_WNDPROC = (-4)

Public preWinProc As Long
Public Modifiers As Long, uVirtKey As Long, idHotKey As Long

Private Type taLong
ll As Long
End Type

Private Type t2Int
lWord As Integer
hWord As Integer
End Type

Public Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
If wParam = idHotKey Then
Dim lp As taLong, i2 As t2Int
lp.ll = lParam
LSet i2 = lp
If (i2.lWord = Modifiers) And i2.hWord = uVirtKey Then
'全局热键执行事件，如：
msgbox "30分？"
End If
End If
End If
Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function

在窗体中添加复制以下代码：
Private Sub Form_Load()
Dim ret As Long
preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc)
idHotKey = 1
‘如果全局热键alt+home,则加：'Modifiers = MOD_ALT
uVirtKey = vbKeyHome '全局热键：Home
ret = RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey)
End Sub

Private Sub Form_Unload(Cancel As Integer) ‘关闭程序前取消全局热键的注册
Dim ret As Long
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
Call UnregisterHotKey(Me.hwnd, uVirtKey)
End Sub

Answer 4

这里能找到你想要的,注释就自己写把,论坛上注册一下就可以下载了，有原代码

Answer 5

百度搜索 VB全局热键