帮忙把我的程序段全局热键换1下，改为F10

Question

请高手帮忙改下，下面是我找的，运行没问题，激活的程序是我自己的，主窗口FORM为query
这段程序是ALT_1，激活显示窗口，ALT_2隐藏，帮忙分别换为F10,F11
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 个热键所对应的操作,大家在其他的程序中，只要修改此处就可以了 
                  query.WindowState = 0 
query.Show 
Shell_NotifyIcon NIM_DELETE, tray 
              Call getmydata 
              
              X = Trim(query.bdh.Text) 
X = X + 1 
query.bdh.Text = X 
              Case 2 
                
                  query.Hide 
Call tuopan               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(query.hwnd, GWL_WNDPROC) 
'          用自定义程序代替原来的window程序 
          SetWindowLong query.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 query.hwnd, key_idHotKey, key_Modifiers, key_uVirtKey '向窗口注册系统热键 
              key_IsWinAddress = True '不需要再取得窗口信息 
            
          Case "Del" 
              SetWindowLong query.hwnd, GWL_WNDPROC, key_preWinProc '恢复窗口信息 
              UnregisterHotKey query.hwnd, key_uVirtKey '取消系统热键 
              key_IsWinAddress = False '可以再次取得窗口信息 
      End Select 
End Function 

Answer 1

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDBLCLK = &H203         '托盘双击左键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 LongConst 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 '是否取得窗口信息的判断
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End TypePublic tray As NOTIFYICONDATA
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 个热键所对应的操作,大家在其他的程序中，只要修改此处就可以了 
                  query.WindowState = 0 
query.Show 
Shell_NotifyIcon NIM_DELETE, tray 
              Call getmydata 
              
              X = Trim(query.bdh.Text) 
X = X + 1 
query.bdh.Text = X 
              Case 2 
                
                  query.Hide 
Call tuopan               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(query.hwnd, GWL_WNDPROC) 
'          用自定义程序代替原来的window程序 
          SetWindowLong query.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 query.hwnd, key_idHotKey, key_Modifiers, key_uVirtKey '向窗口注册系统热键 
              key_IsWinAddress = True '不需要再取得窗口信息 
            
          Case "Del" 
              SetWindowLong query.hwnd, GWL_WNDPROC, key_preWinProc '恢复窗口信息 
              UnregisterHotKey query.hwnd, key_uVirtKey '取消系统热键 
              key_IsWinAddress = False '可以再次取得窗口信息 
      End Select 
End Function
我贴全点

Answer 2

说明下：这段程序是ALT_1激活窗口query，ALT_2隐藏该窗口并最小化到托盘
我目前希望用F10,F11做，怎么改？