滑鼠工具類別

導論
方法
 滑鼠按鍵按下不放
 滑鼠按鍵放開
 滑鼠按鍵單觸擊
 滑鼠按鍵雙觸擊
 滑鼠開始拖拉
 滑鼠放下拖拉
屬性
列舉常數
 滑鼠按鍵代號

導論

本類別為模擬滑鼠事件而設計,主要運用函數為 mouse_event  ,本類別仍在發展中,部分程式碼尚未充分測試完畢,為配合網友需求,先行將部分程式碼上網,未來仍有可能依個人工作或研究上之需求進行調整

其中,各鍵之滑鼠動作係指註冊給 Windows 系統之動作,以 Logitech 滑鼠可指定中鍵為雙觸擊來說,該驅動程式先攔截滑鼠信號再以其他方式模擬,而非正式向系統註冊該鍵之動作,故本類別中鍵之滑鼠動作並不能產生該驅動程式的效力,僅執行系統指定動作,當然對於該驅動程式所指定給滑鼠各鍵之其他非標準功能亦是如此,一般而言,滑鼠中鍵系統並未指定任何事件對應

屬性

項目 讀/寫 說明
x 讀/寫 讀取或設定目前滑鼠絕對位置 x 方向座標
y 讀/寫 讀取或設定目前滑鼠絕對位置 y 方向座標
hWnd 唯讀 讀取目前滑鼠絕對位置所在之視窗代碼
hDC 唯讀 讀取目前滑鼠絕對位置所在之裝置代碼
Pixel 讀/寫 讀取或設定目前滑鼠位置之顏色。
注意:當目標視窗發生重整時,將會恢復原先顏色。

方法

項目 說明
ButtonDown 滑鼠按鍵按下不放
ButtonUp 滑鼠按鍵放開
Click 滑鼠按鍵單觸擊
DblClick 滑鼠按鍵雙觸擊
Drag 滑鼠開始拖拉
Drop 滑鼠放下拖拉

滑鼠按鍵按下不放

ButtonDown

引數 型別 說明
MouseButton enuMouseButton 滑鼠按鍵代號,預設為滑鼠左鍵,若要多鍵同時執行請以 Or 運算子連接
bHere Boolean 是否在目前位置執行動作,若否則以絕對位置 (x, y) 執行動作,預設為是 (True)

範例:

Dim Mouse As New cMouse

Mouse.ButtonDown

滑鼠按鍵放開

ButtonUp

引數 型別 說明
MouseButton enuMouseButton 滑鼠按鍵代號,預設為滑鼠左鍵,若要多鍵同時執行請以 Or 運算子連接
bHere Boolean 是否在目前位置執行動作,若否則以絕對位置 (x, y) 執行動作,預設為是 (True)

範例:

Dim Mouse As New cMouse

Mouse.ButtonUp

滑鼠按鍵單觸擊

Click ,可為組合滑鼠按鍵按下不放滑鼠按鍵放開之方法,或同時執行滑鼠按鍵按下不放及滑鼠按鍵放開,利用動作常數相加即可完成

引數 型別 說明
MouseButton enuMouseButton 滑鼠按鍵代號,預設為滑鼠左鍵,若要多鍵同時執行請以 Or 運算子連接
bHere Boolean 是否在目前位置執行動作,若否則以絕對位置 (x, y) 執行動作,預設為是 (True)

範例:

Dim Mouse As New cMouse

Mouse.Click

滑鼠按鍵雙觸擊

DblClick,為重複執行滑鼠按鍵單觸擊兩次之方法

引數 型別 說明
MouseButton enuMouseButton 滑鼠按鍵代號,預設為滑鼠左鍵,若要多鍵同時執行請以 Or 運算子連接
bHere Boolean 是否在目前位置執行動作,若否則以絕對位置 (x, y) 執行動作,預設為是 (True)

範例:

Dim Mouse As New cMouse

Mouse.DblClick

滑鼠開始拖拉

Drag,為滑鼠按下左鍵不放之方法應用

引數 型別 說明
bHere Boolean 是否在目前位置執行動作,若否則以絕對位置 (x, y) 執行動作,預設為是 (True)

範例:

Dim Mouse As New cMouse

Mouse.Drag

滑鼠放下拖拉

Drop,為滑鼠放開左鍵之方法應用

引數 型別 說明
bHere Boolean 是否在目前位置執行動作,若否則以絕對位置 (x, y) 執行動作,預設為是 (True)

範例:

Dim Mouse As New cMouse

Mouse.Drop

列舉常數

項目 說明
enuMouseButton 滑鼠按鍵代號

滑鼠按鍵代號

enuMouseButton 

常數名 數值 說明
MB_Left &H2 滑鼠左鍵
MB_Right &H8 滑鼠右鍵
MB_Middle &H20 滑鼠中鍵