中科新闻网东方战场喂奶是第几集:有关VB问题, 高手指点.
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 03:40:16
在VB中,怎么为form1设置快捷键.像QQ样,只要按
ctrl+alt+z 这样的快捷键,就可以弹出窗口..
当前热键为：ctrl+alt+a
这是一个,为form1设置,热键. 但有一个不好的地方,就是.当窗口最小化后按,ctrl+alt+a,可以实现.但是.一但.
窗口被隐藏后,按,ctrl+alt+a就不行了,,所以,有没有更好的.方法.让在隐藏下,也能生效...
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETHOTKEY = &H32
Private Const HOTKEYF_SHIFT = &H1
Private Const HOTKEYF_CONTROL = &H2
Private Const HOTKEYF_ALT = &H4
Private Sub Form_Load()
Dim l As Long
Dim wHotkey As Long
wHotkey = (HOTKEYF_ALT Or HOTKEYF_CONTROL) * (2 ^ 8) + 65
l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)
End Sub
ctrl+alt+z 这样的快捷键,就可以弹出窗口..
当前热键为：ctrl+alt+a
这是一个,为form1设置,热键. 但有一个不好的地方,就是.当窗口最小化后按,ctrl+alt+a,可以实现.但是.一但.
窗口被隐藏后,按,ctrl+alt+a就不行了,,所以,有没有更好的.方法.让在隐藏下,也能生效...
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETHOTKEY = &H32
Private Const HOTKEYF_SHIFT = &H1
Private Const HOTKEYF_CONTROL = &H2
Private Const HOTKEYF_ALT = &H4
Private Sub Form_Load()
Dim l As Long
Dim wHotkey As Long
wHotkey = (HOTKEYF_ALT Or HOTKEYF_CONTROL) * (2 ^ 8) + 65
l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)
End Sub
有很多种方法,但都必须触发这个事件.
1)你可以在form或者其他控件中的KeyPress事件中写出满足以上要求的代码.然后按键时触发这个事件.
2)也可以在菜单栏工具选项中选择菜单编辑器,编写一个菜单项,用上快捷键,然后把菜单隐藏,再在菜单事件中写弹出你要弹出的窗口.
那就对键盘进行检测,如果簇发ctrl+alt+z
FORM1 SHOW