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

調(diào)用api

創(chuàng)新互聯(lián)建站長(zhǎng)期為超過(guò)千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開(kāi)放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為蒙自企業(yè)提供專業(yè)的成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)，蒙自網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開(kāi)發(fā)。

在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)左鍵按下

求大神指點(diǎn)vb.net 怎么用SendInput來(lái)實(shí)現(xiàn)鼠標(biāo)移動(dòng)到指定位置呢?

您好，建議您使用mouse_event或者?Cursor.Position來(lái)實(shí)現(xiàn)。例如：

1. 您需要將鼠標(biāo)移動(dòng)dx, dy的位置。

Public?Sub?MouseMoveBy(ByVal?dx?As?Integer,?ByVal?dy?As?Integer)

Cursor.Position?=?New?Point(Cursor.Position.X?+?dx,?Cursor.Position.Y?+?dy)

End?Sub

或者

Public?Sub?MouseMoveBy(ByVal?dx?As?Integer,?ByVal?dy?As?Integer)

mouse_event(0,?dx,?dy,?0,?0)

End?Sub

2. 您需要將鼠標(biāo)移動(dòng)到x, y的位置

Public?Sub?MouseMoveTo(ByVal?x?As?Integer,?ByVal?y?As?Integer)

Cursor.Position?=?New?Point(x,?y)

End?Sub

請(qǐng)您試一下。

vb.net中,如何實(shí)現(xiàn)鼠標(biāo)在listbox控件上移動(dòng)時(shí),鼠標(biāo)所到的條目背景變黑、字變白；移開(kāi)后還原?

復(fù)雜的不會(huì)，來(lái)點(diǎn)兒簡(jiǎn)單的，借用在listbox里按下鼠標(biāo)時(shí)再移動(dòng)，會(huì)高亮顯示選擇行，并且會(huì)隨鼠標(biāo)移動(dòng)而變化的這一特點(diǎn)改進(jìn)的，不足之處是在listbox里，此時(shí)處于鼠標(biāo)左鍵在按下?tīng)顟B(tài)。

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)左鍵按下

Private Sub ListBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseMove

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

End Sub

VB.NET2013如何控制鼠標(biāo)在某一坐標(biāo)點(diǎn)擊一下

Imports?System.Runtime.InteropServices

DllImport("user32.dll")?

Private?Shared?Function?SetCursorPos(ByVal?X?As?Integer,?ByVal?Y?As?Integer)?As?Boolean????End?Function

DllImport("user32.dll")?

Private?Shared?Sub?mouse_event(ByVal?flags?As?MouseEventFlag,?ByVal?dx?As?Integer,?ByVal?dy?As?Integer,?ByVal?data?As?UInteger,?ByVal?extraInfo?As?UIntPtr)????End?Sub

Flags()

Private?Enum?MouseEventFlag?As?UInteger???

Move?=?H1?

LeftDown?=?H2

LeftUp?=?H4

RightDown?=?H8

RightUp?=?H10

MiddleDown?=?H20?

MiddleUp?=?H40?

XDown?=?H80?

XUp?=?H100

Wheel?=?H800?

VirtualDesk?=?H4000

Absolute?=?H8000?

End?Enum

SetCursorPos(intX,?intY)mouse_event(MouseEventFlag.LeftDown,?intX,?intY,?0,?UIntPtr.Zero)

mouse_event(MouseEventFlag.LeftUp,?intX,?intY,?0,?UIntPtr.Zero)

本文名稱：vb.net控制鼠標(biāo) vba控制鼠標(biāo)
網(wǎng)頁(yè)路徑：http://chinadenli.net/article36/dogcjpg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站策劃、建站公司、商城網(wǎng)站、網(wǎng)站設(shè)計(jì)公司、標(biāo)簽優(yōu)化、App開(kāi)發(fā)

廣告

聲明：本網(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)