|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：土人 日期：2005-8-4 11:32:56 |
|
|
土人的拙作《如何用API函数定义热键》在 VB编程乐园 发表后，很多网友纷纷来信，有的指出其中存在的问题并提出解决方的案（土人在此表示感谢！）；有的则询问可不可以定义组合键等问题。土人不才，通过多方查找资料，才找到另一种定义热键的方法，在此把心得写出来，请各位网友指正！
三个API函数是必须的：
RegisterHotKey —— 用于定义热键
UnregisterHotKey —— 用于注销热键
PeekMessage —— 用于检测热键(尚有其它的主要用途)
这里举个实例:程序启动后窗体不可见，按下 Ctrl+F12 窗体弹出来。本例仅需要一个窗体，在 PWin98、VB6.0企业版下调试通过。
'申明 API 函数
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
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 Long
Private bCancel As Boolean '用于热键有效与否的变量
'全局变量
Private Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4
Private Const PM_REMOVE = &H1
Private Const WM_HOTKEY = &H312
Private Type Msg '定义Message类型
hWnd As Long
Message As Long
wParam As Long
lParam As Long
time As Long
End Type
Private Sub proMsg() '声明进程
Dim Message As Msg
' 循环直到 bCancel 为真
Do While Not bCancel
'检测到热键被按下则令窗体隐藏
If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
Me.Visible = True
End If
DoEvents
Loop
End Sub
Private Sub Form_Load() '窗体加载时初始化程序
Dim ret As Long
bCancel = False
'定义热键为Ctrl+F12
ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF12)
Me.Visible = False '窗体不可见
proMsg
End Sub
'退出时注销热键
Private Sub Form_Unload(Cancel As Integer)
bCancel = True
Call UnregisterHotKey(Me.hWnd, &HBFFF&)
End Sub |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 土人 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:32:56 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]