一. 为方便写两个自定义函数
'注册函数,为本程序注册热键Alt+Q ,Alt+S
Private Sub regkey()
Dim ret1 As Long '注册第一个热键的返回接收对象
Dim ret2 As Long '注册第二个热键的返回接收对象,以此类推
''记录原来的window程序地址
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
''用自定义程序代替原来的window程序
ret1 = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)
ret2 = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)
'同样,顺序定义下去
idHotKey1 = 1 ''范围 &h0000 -- &hBFFF
idHotKey2 = 2 ''范围 &h0000 -- &hBFFF
Modifiers = MOD_ALT ''辅助键为Alt,可换其他的辅助键,如Ctrl键用MOD_CONTROL,Shift键用MOD_SHIFT
uVirtKey1 = vbKeyQ ''注册的热键为Alt+Q
uVirtKey2 = vbKeyS ''注册的热键为Alt+S
'同样依序类推
''注册热键
&#