- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
12#
發表於 2013-12-21 09:26
| 只看該作者
回復 11# acdx - Sub Hook_Mouse()
- hhkLowLevelMouse = SetWindowsHookEx _
- (WH_MOUSE_LL, AddressOf LowLevelMouseProc, Application.Hinstance, 0)
- End Sub
複製代碼 Hook_Mouse 去呼叫 Windlows 的程式庫函數- 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
複製代碼 此 Function 將 LowLevelMouseProc 帶回來的位址,以及 WH_MOUSE_LL (=14) 與事件、執行緒參數等
資訊傳入給 LowLevelMouseProc 以啟動 MOUSEWHEEL 的功能設定。
如此概略解說你應該會有所了解吧? |
|