vb.net如何編寫長(zhǎng)按鼠標(biāo)左鍵的事件？

SetCursorPos(old_x,old_y);

吉利網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),吉利網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為吉利1000+提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢，請(qǐng)找那個(gè)售后服務(wù)好的吉利做網(wǎng)站的公司定做！

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

SetCursorPos(pt_x,pt_y);

vb.net的，按鍵連續(xù)觸發(fā)事件，比如，按著鍵不放，音量增大。

1.定義變量記錄鍵是否被按下，按下的累計(jì)時(shí)間

Dim?按下A鍵??As?Boolean

Dim?按下A鍵時(shí)間?As?Integer

2.添加一個(gè)TextBox1用于接收鍵盤事件，或者直接用窗體的鍵盤事件(確保KeyPreview為True)

在KeyDown事件中添加如下代碼：

If?e.Keycode?=?keys.A?Then?按下A鍵?=?True

在KeyUp事件中添加如下代碼：

If?e.Keycode?=?keys.A?Then?按下A鍵?=?False

3.添加一個(gè)Timer1控件，調(diào)整Timer1的Interval來決定按鍵頻率，記得要把Timer1.Enable開啟

在Tick事件中添加如下代碼：

If?按下A鍵?=?True

按下A鍵時(shí)間+=1

Call?音量設(shè)置(按下A鍵時(shí)間?*?10)

End?If

PS:?按下的秒數(shù) =?按下A鍵時(shí)間*Timer1.Interval / 1000

vb.net判斷鼠標(biāo)左鍵長(zhǎng)按

很簡(jiǎn)單，加入全局變量中有一個(gè)變量，mousedown事件中設(shè)為1，在mouseup事件中置為0。這樣就能實(shí)現(xiàn)你說的功能。

以下參考

Private Sub 天平左移按鈕_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles 天平左移按鈕.PreviewMouseDown

a=true

End Sub

Private Sub 天平左移按鈕_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)Handles 天平左移按鈕.PreviewMouseUp

a=false

End Sub