vb.net調用鼠標事件的簡單介紹

vb.net，我有一個鼠標右鍵點擊的事件，我想在這個事件里面加入鼠標左鍵點擊的動作，

你已經有了“鼠標右鍵點擊的事件”

我們提供的服務有：網站設計制作、成都網站建設、微信公眾號開發、網站優化、網站認證、武義ssl等。為成百上千企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的武義網站制作公司

說明你肯定已經有了if e.button=windows.forms.mousebuttons.right then

你只需要找到這條語句，通常這句話應該在你的mouseclick事件中。

這條語句改成

if e.button=windows.forms.mousebuttons.left or e.button=windows.forms.mousebuttons.right then

就可以了！

^_^

vb鼠標點擊事件

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN = H2 ' 左鍵按下Private Const MOUSEEVENTF_LEFTUP = H4 ' 左鍵抬起

Private Const MOUSEEVENTF_MOVE = H1 ' 鼠標移動 在需要操作鼠標的地方調用如下兩句

Call Mouse_Event(MOUSEEVENTF_LEFTDown,10,10,0,0) '讓鼠標在10,10位置按下 Call Mouse_Event(MOUSEEVENTF_LEFTUP,10,10,0,0) '讓鼠標在10,10位置抬起這兩句代碼的操作就相當于我們單擊一次鼠標（先按下然后抬起）如果你需要做移動鼠標到某個位置的話，可以用這個API來實現（用Mouse_Event里的MOUSEEVENTF_MOVE需要將你的相對屏幕的坐標按屏幕65535X65535的比例進行轉換成絕對座標才可以） Private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

在需要移動鼠標的地方調用如下：Call SetCursorPos(10,10) '這里的10,10就是屏幕相對當前分辨率而言的絕對坐標

如何在VB.net中用程序控制鼠標移動和點擊

調用api

在Visual Baisc.net中的聲明：

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模擬鼠標左鍵按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標左鍵釋放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標中間鍵按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標中間鍵釋放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標右鍵按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標右鍵釋放

Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標指針移動

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標左鍵按下

VB.net鼠標事件模擬問題

直接把消息發送給TextBox。

Dim x As Integer, y As Integer

x = 100

y = 100

PostMessage(TextBox1.Handle.ToInt32, WM_LBUTTONDOWN, MK_LBUTTON, MakeInteger(x, y))

PostMessage(TextBox1.Handle.ToInt32, WM_LBUTTONUP, MK_LBUTTON, MakeInteger(x, y))

分享文章：vb.net調用鼠標事件的簡單介紹
鏈接分享：http://m.kartarina.com/article46/hgsohg.html

成都網站建設公司_創新互聯，為您提供外貿網站建設、網站內鏈、網站制作、網站設計公司、網站導航、全網營銷推廣

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯