······求窗体级热键API函数调用具体代码 100分奉送········

Question

窗体级
不要菜单的窗体中
Ctrl+A~Z   Call 过程名
Alt+A~Z  Call 过程名
F1~10  Call 过程名ADO + Access + DataGrid  判断Recordset类型变量中有没有数据？

Answer 1

SetHotkey 1, "Ctrl,112", "Add"        按 Ctrl+F1 激活指定程序
SetHotkey 2, 113, "Add"            按 F2 激活指定程序
SetHotkey 3, "Ctrl+Alt,113", "Add"    按 Ctrl+Alt+F2 激活指定程序
'注：关于激活热键后的操作，由自定义函数 SetHotkey 的 KeyId 传送的值来判断注销 3 个热键：
SetHotkey 1, "", "Del"              退出程序是一定要用上的，不然会导至程序死掉
SetHotkey 2, "", "Del"
SetHotkey 3, "", "Del"
请大家新建一个模块（.bas）文件，自定义 SetHotkey函数及其他，这样在以后的任何程序中只要调用此模块就可以了。'本模块是有关热键操作的
Option Explicit
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 '是否取得窗口信息的判断
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 "aa"
            Case 2
                MsgBox "bb"
            Case 3
                MsgBox "cc"
        End Select
    End If
    
    '将消息传送给指定的窗口
    keyWndproc = CallWindowProc(key_preWinProc, hwnd, Msg, wParam, lParam)
    
End FunctionFunction 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

Answer 2

关于第二个问题，我一般是写代码，然后
假设rs为recordset变量
if rs.eof and rs.bof then  '结果集为空，即没有数据
     '你的代码
else '结果集不为空
     '你的代码
end if

Answer 3

我真的很苯！
模块（.bas）文件已建了，在F5后，是不是这个模块就会自动加载呢？
        那么“自定义 SetHotkey函数及其他”是怎么做呢？
我将  SetHotkey 1, "Ctrl,112", "Add"       ' 按 Ctrl+F1 激活指定程序
         SetHotkey 2, 113, "Add"            '按 F2 激活指定程序
         SetHotkey 3, "Ctrl+Alt,113", "Add"    '按 Ctrl+Alt+F2 激活指定程序
写在 Form_Load 事件里了，提示“编译错误：发现二义性的名称 SetHotkey”
我不知道....还烦.....真不好意思...