導論:
本類別為模擬滑鼠事件而設計,主要運用函數為 mouse_event ,本類別仍在發展中,部分程式碼尚未充分測試完畢,為配合網友需求,先行將部分程式碼上網,未來仍有可能依個人工作或研究上之需求進行調整
其中,各鍵之滑鼠動作係指註冊給 Windows 系統之動作,以 Logitech 滑鼠可指定中鍵為雙觸擊來說,該驅動程式先攔截滑鼠信號再以其他方式模擬,而非正式向系統註冊該鍵之動作,故本類別中鍵之滑鼠動作並不能產生該驅動程式的效力,僅執行系統指定動作,當然對於該驅動程式所指定給滑鼠各鍵之其他非標準功能亦是如此,一般而言,滑鼠中鍵系統並未指定任何事件對應
屬性:
項目 | 讀/寫 | 說明 |
x | 讀/寫 | 讀取或設定目前滑鼠絕對位置 x 方向座標 |
y | 讀/寫 | 讀取或設定目前滑鼠絕對位置 y 方向座標 |
hWnd | 唯讀 | 讀取目前滑鼠絕對位置所在之視窗代碼 |
hDC | 唯讀 | 讀取目前滑鼠絕對位置所在之裝置代碼 |
Pixel | 讀/寫 | 讀取或設定目前滑鼠位置之顏色。 注意:當目標視窗發生重整時,將會恢復原先顏色。 |
方法:
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 | 滑鼠中鍵 |