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

調(diào)用api

創(chuàng)新互聯(lián)建站專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、南華網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5開發(fā)、商城建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為南華等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

在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 textbox1.text 鼠標(biāo)一點(diǎn) 全部選擇

Private?Sub?TextBox1_Click(sender?As?Object,?e?As?EventArgs)?Handles?TextBox1.Click

TextBox1.SelectAll()

TextBox1.ForeColor?=?Color.Blue

End?Sub

如果不想每次都這樣的話，就加一個(gè)if判斷TextBox1.ForeColor 是否是Color.Blue就可以了

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)是否單擊

你這問題說的有點(diǎn)沒太明白 是在form上判斷是否是鼠標(biāo)單擊么?

還是說在后臺判斷是否是鼠標(biāo)單擊了

如果是第一種的話應(yīng)該是有事件的 直接寫進(jìn)去你要寫的方法就好了

如果要是在后臺判斷的話就定義一個(gè)全局變量 然后在你from上所有的你需要判斷的空間上都加上mouseclick事件中再給全局變量賦值就能判斷是否是 鼠標(biāo)單擊了

VB.net如何讓窗體在鼠標(biāo)點(diǎn)擊出顯示

沒聽懂你的意思。如果你是想做一個(gè)像右鍵菜單效果的話，你可以在鼠標(biāo)點(diǎn)擊事件中獲取鼠標(biāo)位置，然后創(chuàng)建你要顯示窗體的實(shí)例，把窗體的left 和 top 設(shè)成鼠標(biāo)的x,和y 坐標(biāo)就可以了，具體獲取鼠標(biāo)坐標(biāo)的方法大至有2種，一種是.net 自帶的，你找一找 Screen 這個(gè)對象中的屬性，能找到獲取鼠標(biāo)坐標(biāo)的方法，別一種就是用API函數(shù)獲取鼠標(biāo)的坐標(biāo)，GetCursorPos ，該 API 具體使用方法和聲明請?jiān)诰W(wǎng)上查找一下。如果有什么問題，可以再聯(lián)系我。