Question

哪位大侠教教俺VB 6.0 全局热键&托盘程序求大神帮助

全局热键至少4个 托盘程序 要有右键菜单

Answer 1

VB6没有什么做不到，谁说VB6不如VB.net,只是方法的使用而已，其实这些都是可以VB6都是可以做到的，可以交流！ vb中设置全局热键的方法很多，我介绍几种吧： 第一种回调用，添加模块复制下面代码 Private Declare Function CallNextHookEx Lib "user32" _ (ByVal hHook As Long, _ ByVal nCode As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function SetWindowsHookEx Lib "user32" _ Alias "SetWindowsHookExA" _ (ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" _ Alias "RtlMoveMemory" _ (Destination As Any, _ Source As Any, _ ByVal Length As Long) Private Type PKBDLLHOOKSTRUCT vkCode As Long scanCode As Long flags As Long time As Long dwExtraInfo As Long End Type Private Const WM_KEYDOWN = &H100 Private Const WM_SYSKEYDOWN = &H104 Private Const WM_KEYUP = &H101 Private Const WM_SYSKEYUP = &H105 Private Const HC_ACTION = 0 Private Const WH_KEYBOARD_LL = 13 Private lngHook As Long Public Function HotKey(ByVal nCode As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Dim p As PKBDLLHOOKSTRUCT If nCode = HC_ACTION Then Select Case wParam Case WM_KEYDOWN, WM_SYSKEYDOWN Call CopyMemory(p, ByVal lParam, Len(p)) If p.vkCode = vbKeyF10 Then '这里定义热键 MsgBox "你按下了F10" '这里，执行你要执行的程序，我这里示范msgbox End If '如果你想定义多个热键就复制上面3行代码然后把vbKeyF10 改成你想要的就可以了。 Case Else End Select End If Call CallNextHookEx(WH_KEYBOARD_LL, nCode, wParam, lParam) End Function Public Sub HooK() lngHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf HotKey, App.hInstance, 0) End Sub Public Sub UnHooK() Call UnhookWindowsHookEx(lngHook) End Sub '窗体中代码 Private Sub Form_Load() HooK End Sub Private Sub Form_Unload(Cancel As Integer) UnHooK End Sub 第二种方法 1、建立一个模块代码如下： '****************************** Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private 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 Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fskey_Modifiers As Long, ByVal vk As Long) As Long Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long Const WM_HOTKEY = &H312 Const MOD_ALT = &H1 Const MOD_CONTROL = &H2 Const MOD_SHIFT = &H4 Const GWL_WNDPROC = (-4) '窗口函数的地址 Dim key_preWinProc As Long '用来保存窗口信息 Dim key_Modifiers As Long, key_uVirtKey As Long, key_idHotKey As Long Dim key_IsWinAddress As Boolean '是否取得窗口信息的判断 Function keyWndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If Msg = WM_HOTKEY Then Select Case wParam 'wParam 值就是 key_idHotKey Case 1 '激活 3 个热键后,3 个热键所对应的操作,大家在其他的程序中，只要修改此处就可以了 MsgBox "alt+1" Case 2 MsgBox "alt+2" Case 3 MsgBox "alt+3" Case 4 MsgBox "alt+4" End Select End If ' 将消息传送给指定的窗口 keyWndproc = CallWindowProc(key_preWinProc, hwnd, Msg, wParam, lParam) End Function Function SetHotkey(ByVal KeyId As Long, ByVal KeyAss0 As String, ByVal Action As String) Dim KeyAss1 As Long Dim KeyAss2 As String Dim i As Long i = InStr(1, KeyAss0, ",") If i = 0 Then KeyAss1 = Val(KeyAss0) KeyAss2 = "" Else KeyAss1 = Right(KeyAss0, Len(KeyAss0) - i) KeyAss2 = Left(KeyAss0, i - 1) End If key_idHotKey = 0 key_Modifiers = 0 key_uVirtKey = 0 If key_IsWinAddress = False Then '判断是否需要取得窗口信息，如果重复取得,再最后恢复窗口时，将会造成程序死掉 ' 记录原来的window程序地址 key_preWinProc = GetWindowLong(Form1.hwnd, GWL_WNDPROC) ' 用自定义程序代替原来的window程序 SetWindowLong Form1.hwnd, GWL_WNDPROC, AddressOf keyWndproc End If key_idHotKey = KeyId Select Case Action Case "Add" If KeyAss2 = "Ctrl" Then key_Modifiers = MOD_CONTROL If KeyAss2 = "Alt" Then key_Modifiers = MOD_ALT If KeyAss2 = "Shift" Then key_Modifiers = MOD_SHIFT If KeyAss2 = "Ctrl+Alt" Then key_Modifiers = MOD_CONTROL + MOD_ALT If KeyAss2 = "Ctrl+Shift" Then key_Modifiers = MOD_CONTROL + MOD_SHIFT If KeyAss2 = "Ctrl+Alt+Shift" Then key_Modifiers = MOD_CONTROL + MOD_ALT + MOD_SHIFT If KeyAss2 = "Shift+Alt" Then key_Modifiers = MOD_SHIFT + MOD_ALT key_uVirtKey = Val(KeyAss1) RegisterHotKey Form1.hwnd, key_idHotKey, key_Modifiers, key_uVirtKey '向窗口注册系统热键 key_IsWinAddress = True '不需要再取得窗口信息 Case "Del" SetWindowLong Form1.hwnd, GWL_WNDPROC, key_preWinProc '恢复窗口信息 UnregisterHotKey Form1.hwnd, key_uVirtKey '取消系统热键 key_IsWinAddress = False '可以再次取得窗口信息 End Select End Function 2、form中的代码： '****************************** Private Sub Form_Load() SetHotkey 1, "Alt,49", "Add" SetHotkey 2, "Alt,50", "Add" SetHotkey 3, "Alt,51", "Add" SetHotkey 4, "Alt,52", "Add" End Sub Private Sub Form_Unload(Cancel As Integer) SetHotkey 1, "", "Del" SetHotkey 2, "", "Del" SetHotkey 3, "", "Del" SetHotkey 4, "", "Del" End Sub 当然还有别的方法。方法真的很多。托盘程序呢，这个就没必要发了吧。网上多的数不清，基本都是有右键的。如果你找不到你就搜一下vb托盘控件，那些都能直接当成控件调用方便的可以。 http://download.csdn.net/source/1453787 这个就能满足你要求。 http://www.anqn.com/vb/159/5920.shtml 这个也可以。太多了。我就不写出来了吧。

采纳哦