不知道有没有更好的方法?
我用 RegisterHotKey 注册了系统热键
看了一些代码，觉得感觉不是很好，用的是死循环来监视热键，例如
这个就是用死循环，加了个DoEvents，防止CPU100%,或者是用了Timer控件的
1
Private Const MOD_ALT = &H1
2Private Const MOD_CONTROL = &H2
3Private Const MOD_SHIFT = &H4
4Private Const PM_REMOVE = &H1
5Private Const WM_HOTKEY = &H312
6Private Type POINTAPI
7 x As Long
8 y As Long
9End Type
10Private Type Msg
11 hWnd As Long
12 Message As Long
13 wParam As Long
14 lParam As Long
15 time As Long
16 pt As POINTAPI
17End Type
18Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
19Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
20Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
21Private Declare Function WaitMessage Lib "user32" () As Long
22Private bCancel As Boolean
23Private Sub ProcessMessages()
24 Dim Message As Msg
25 'loop until bCancel is set to True
26 Do While Not bCancel
27 'wait for a message
28 WaitMessage
29 'check if it's a HOTKEY-message
30 If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
31 'minimize the form
32 WindowState = vbMinimized
33 End If
34 'let the operating system process other events
35 DoEvents
36 Loop
37End Sub
38Private Sub Form_Load()
39 Dim ret As Long
40 bCancel = False
41 'register the Ctrl-F hotkey
42 ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF)
43 'show some information
44 Me.AutoRedraw = True
45 Me.Print "Press CTRL-F to minimize this form"
46 'show the form and
47 Show
48 'process the Hotkey messages
49 ProcessMessages
50End Sub
51Private Sub Form_Unload(Cancel As Integer)
52 bCancel = True
53 'unregister hotkey
54 Call UnregisterHotKey(Me.hWnd, &HBFFF&)
55End Sub
56
57
Private Const MOD_ALT = &H12
Private Const MOD_CONTROL = &H23
Private Const MOD_SHIFT = &H44
Private Const PM_REMOVE = &H15
Private Const WM_HOTKEY = &H3126
Private Type POINTAPI7
x As Long8
y As Long9
End Type10
Private Type Msg11
hWnd As Long12
Message As Long13
wParam As Long14
lParam As Long15
time As Long16
pt As POINTAPI17
End Type18
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long19
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long20
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long21
Private Declare Function WaitMessage Lib "user32" () As Long22
Private bCancel As Boolean23
Private Sub ProcessMessages()24
Dim Message As Msg25
'loop until bCancel is set to True26
Do While Not bCancel27
'wait for a message28
WaitMessage29
'check if it's a HOTKEY-message30
If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then31
'minimize the form32
WindowState = vbMinimized33
End If34
'let the operating system process other events35
DoEvents36
Loop37
End Sub38
Private Sub Form_Load()39
Dim ret As Long40
bCancel = False41
'register the Ctrl-F hotkey42
ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF)43
'show some information44
Me.AutoRedraw = True45
Me.Print "Press CTRL-F to minimize this form"46
'show the form and47
Show48
'process the Hotkey messages49
ProcessMessages50
End Sub51
Private Sub Form_Unload(Cancel As Integer)52
bCancel = True53
'unregister hotkey54
Call UnregisterHotKey(Me.hWnd, &HBFFF&)55
End Sub56
57
'//第2个示例
'演示怎样设置一个窗口在桌面上的HotKey,这个程序将Form1的HotKey设置为
'Ctl+Alt+A.
1Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
2
3Private Const WM_SETHOTKEY = &H32
4Private Const HOTKEYF_SHIFT = &H1
5Private Const HOTKEYF_CONTROL = &H2
6Private Const HOTKEYF_ALT = &H4
7
8Private Sub Form_Load()
9 Dim l As Long
10 Dim wHotkey As Long
11
12 wHotkey = (HOTKEYF_ALT Or HOTKEYF_CONTROL) * (2 ^ 8) + 65
13 l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)
14End Sub
15
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long2
3
Private Const WM_SETHOTKEY = &H324
Private Const HOTKEYF_SHIFT = &H15
Private Const HOTKEYF_CONTROL = &H26
Private Const HOTKEYF_ALT = &H47
8
Private Sub Form_Load()9
Dim l As Long10
Dim wHotkey As Long11
12
wHotkey = (HOTKEYF_ALT Or HOTKEYF_CONTROL) * (2 ^ 8) + 6513
l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)14
End Sub15
有没有更好的方法呢？？？？？
用键盘钩子，好像可以，但我下载的键盘钩子的代码很多，担心里面可能隐含什么错误~~
高手出招吧~~~~~~~~~~~
http://community.csdn.net/Expert/topic/5278/5278689.xml?temp=.9990045
