VB中怎樣模擬鼠標(biāo)雙擊操作？

當(dāng)然可以啊。

超過十年行業(yè)經(jīng)驗(yàn)，技術(shù)領(lǐng)先，服務(wù)至上的經(jīng)營模式，全靠網(wǎng)絡(luò)和口碑獲得客戶，為自己降低成本，也就是為客戶降低成本。到目前業(yè)務(wù)范圍包括了：成都做網(wǎng)站、網(wǎng)站建設(shè)，成都網(wǎng)站推廣，成都網(wǎng)站優(yōu)化，整體網(wǎng)絡(luò)托管，成都小程序開發(fā)，微信開發(fā)，App定制開發(fā)，同時(shí)也可以讓客戶的網(wǎng)站和網(wǎng)絡(luò)營銷和我們一樣獲得訂單和生意！

使用API函數(shù)mouse_event可以模擬鼠標(biāo)事件，比如左鍵單擊、雙擊和右鍵單擊等。這個(gè)實(shí)例利用此函數(shù)產(chǎn)生了十分有趣的效果，無論鼠標(biāo)處于屏幕的任何位置，每隔一秒程序會(huì)使鼠標(biāo)在那個(gè)位置單擊或雙擊一次，這會(huì)給我們?cè)斐墒裁礃拥幕靵y呢？試一試就知道了。

先在程序中加入如下的聲明后，就能引用mouse_event函數(shù)：

Private 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)

其中各個(gè)參數(shù)的意義如下表所示：

參數(shù) 意義

dwFlags Long，下表中標(biāo)志之一或它們的組合

dx，dy Long，根據(jù)MOUSEEVENTF_ABSOLUTE標(biāo)志，指定x，y方向的絕對(duì)位置或相對(duì)位置

cButtons Long，沒有使用

dwExtraInfo Long，沒有使用

dwFlags常數(shù) 意義

MOUSEEVENTF_MOVE H1，移動(dòng)鼠標(biāo)

MOUSEEVENTF_LEFTDOWN H2，模擬鼠標(biāo)左鍵按下

MOUSEEVENTF_LEFTUP H4，模擬鼠標(biāo)左鍵抬起

MOUSEEVENTF_RIGHTDOWN H8，模擬鼠標(biāo)右鍵按下

MOUSEEVENTF_RIGHTUP H10，模擬鼠標(biāo)右鍵抬起

MOUSEEVENTF_MIDDLEDOWN H20，模擬鼠標(biāo)中鍵按下

MOUSEEVENTF_MIDDLEUP H40，模擬鼠標(biāo)中鍵抬起

MOUSEEVENTF_ABSOLUTE H8000，標(biāo)示是否采用絕對(duì)坐標(biāo)

程序中我們這樣使用mouse_event函數(shù)：

1、這里是鼠標(biāo)左鍵按下和松開兩個(gè)事件的組合即一次單擊：

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

2、模擬鼠標(biāo)右鍵單擊事件：

mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

3、兩次連續(xù)的鼠標(biāo)左鍵單擊事件 構(gòu)成一次鼠標(biāo)雙擊事件：

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

如上面所示如果我們要使用兩個(gè)dwFlags常數(shù)的組合時(shí)，可以用Or將其連接起來。本例中我們把dx，dy參數(shù)都設(shè)為0，是指每次模擬事件的位置是鼠標(biāo)的當(dāng)前位置，dx，dy在沒有使用MOUSEEVENTF_ABSOLUTE標(biāo)志時(shí)是相對(duì)于鼠標(biāo)當(dāng)前位置的坐標(biāo)，如果設(shè)置為使用絕對(duì)坐標(biāo)，則dx，dy是相對(duì)于屏幕的坐標(biāo)。

然后把這些語句放在Timer控件的Timer事件中，就能實(shí)現(xiàn)每一定間隔模擬一次鼠標(biāo)事件了。

說明：我不是很會(huì)VC，所以只給出VB里面調(diào)用得方法。抱歉。

在VB中，表示鼠標(biāo)雙擊的事件名是？

DblClick

當(dāng)在一個(gè)對(duì)象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放鼠標(biāo)按鈕時(shí)，該事件發(fā)生。

對(duì)于窗體而言，當(dāng)雙擊被禁用的控件或窗體的空白區(qū)域時(shí)，DblClick 事件發(fā)生。對(duì)于控件而言，DblClick 事件在以下情形下發(fā)生：

用鼠標(biāo)左鍵雙擊控件。

雙擊 Style 屬性設(shè)置為 1(Simple) 的 ComboBox 控件中的項(xiàng)目，或者在 FileListBox 、 ListBox 、DBCombo 或 DBList 控件中的項(xiàng)目。

vb鼠標(biāo)雙擊怎么避免觸發(fā)單擊

這種情況是無法避免的，因?yàn)殡p擊是由兩次單擊組成的，如果你要求系統(tǒng)只響應(yīng)雙擊事件不響應(yīng)單擊事件，那么系統(tǒng)在接收到鍵盤發(fā)來的一次單擊動(dòng)作時(shí)，它就會(huì)暫時(shí)停頓下來，因?yàn)樗恢谰o接著會(huì)不會(huì)還有一次單擊動(dòng)作，如果有就是雙擊，如果沒有就是單擊。這個(gè)過程雖說是“一眨眼”，但也足以使單擊事件產(chǎn)生明顯的延時(shí)（舉個(gè)極端的例子：假如你把雙擊的時(shí)間間隔設(shè)為10秒，那么即使沒有雙擊，控件的單擊事件也要在10秒后才觸發(fā)！），會(huì)嚴(yán)重影響用戶體驗(yàn)，所以系統(tǒng)不可能為了雙擊事件而自動(dòng)屏蔽單擊事件的。因此，通常情況下，單擊事件和雙擊事件最好不要同時(shí)使用，也就是說用了單擊就不要再用雙擊，反之用了雙擊也不要再用單擊。

vb鼠標(biāo)右鍵雙擊事件

先說明幾點(diǎn):

1.不是所有的對(duì)象,都有雙擊事件(zhangfeizimo在前面說過了)

2.支持雙擊事件的對(duì)象,在觸發(fā)這個(gè)事件時(shí),并不識(shí)別是不是右鍵

3.能識(shí)別右鍵的事件,不區(qū)分是單擊還是雙擊

所以,如果用系統(tǒng)的自帶單一事件,是不能直接完成你想的目的

不過,可以變通,將幾個(gè)事件結(jié)合起來,就可以實(shí)現(xiàn),看看下面的方法:

Dim

LastButton

As

Integer

Private

Sub

Form_DblClick()

If

LastButton

=

2

Then

Text1.Text

=

2

End

If

End

Sub

Private

Sub

Form_MouseUp(Button

As

Integer,

Shift

As

Integer,

X

As

Single,

Y

As

Single)

LastButton

=

Button

End

Sub