如何讓ComboBox可以用滑鼠滾動? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何讓ComboBox可以用滑鼠滾動?

返回列表下一主題上一主題發帖

[發問] 如何讓ComboBox可以用滑鼠滾動?

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

11^# 跳轉到 »

發表於 2013-12-20 11:41 | 只看該作者

回復 10# c_c_lai
這已經超出我的程度太多了
我研究了好幾天還是覺得霧煞煞有更容易懂的解說嗎?

博士班 Rank: 6 Rank: 6

帖子: 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 的功能設定。
如此概略解說你應該會有所了解吧？

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。

返回列表下一主題上一主題