vb.net調(diào)用鼠標(biāo)事件的簡(jiǎn)單介紹

vb.net，我有一個(gè)鼠標(biāo)右鍵點(diǎn)擊的事件，我想在這個(gè)事件里面加入鼠標(biāo)左鍵點(diǎn)擊的動(dòng)作，

你已經(jīng)有了“鼠標(biāo)右鍵點(diǎn)擊的事件”

我們提供的服務(wù)有：網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站建設(shè)、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、武義ssl等。為成百上千企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的武義網(wǎng)站制作公司

說(shuō)明你肯定已經(jīng)有了if e.button=windows.forms.mousebuttons.right then

你只需要找到這條語(yǔ)句，通常這句話應(yīng)該在你的mouseclick事件中。

這條語(yǔ)句改成

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

就可以了！

^_^

vb鼠標(biāo)點(diǎn)擊事件

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 ' 鼠標(biāo)移動(dòng) 在需要操作鼠標(biāo)的地方調(diào)用如下兩句

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

在需要移動(dòng)鼠標(biāo)的地方調(diào)用如下：Call SetCursorPos(10,10) '這里的10,10就是屏幕相對(duì)當(dāng)前分辨率而言的絕對(duì)坐標(biāo)

如何在VB.net中用程序控制鼠標(biāo)移動(dòng)和點(diǎn)擊

調(diào)用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 '模擬鼠標(biāo)左鍵按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標(biāo)左鍵釋放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標(biāo)中間鍵按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標(biāo)中間鍵釋放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標(biāo)右鍵按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標(biāo)右鍵釋放

Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標(biāo)指針移動(dòng)

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標(biāo)左鍵按下

VB.net鼠標(biāo)事件模擬問(wèn)題

直接把消息發(fā)送給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調(diào)用鼠標(biāo)事件的簡(jiǎn)單介紹
鏈接分享：http://muchs.cn/article46/hgsohg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站內(nèi)鏈、網(wǎng)站制作、網(wǎng)站設(shè)計(jì)公司、網(wǎng)站導(dǎo)航、全網(wǎng)營(yíng)銷(xiāo)推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)