杨树浦水厂还在使用吗:vb程序问题

来源：百度文库 编辑：神马品牌网 时间：2024/04/27 19:38:15
当前热键为：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

为什么要用隐藏呢，让它在后台运行就不得了吗？那样就相当于最小化!

一个VB程序问题 VB程序问题 有关vb程序问题 有关vb程序问题 有关VB程序问题 vb程序问题 VB程序的问题 VB程序问题 VB程序小问题 VB程序问题