vb.net键盘长按 vb 发送按下键盘指令

vb.net如何编写长按鼠标左键的事件？

SetCursorPos(old_x,old_y);

吉利网站建设公司创新互联,吉利网站设计制作，有大型网站制作公司丰富经验。已为吉利1000+提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱，请找那个售后服务好的吉利做网站的公司定做！

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

SetCursorPos(pt_x,pt_y);

vb.net的，按键连续触发事件，比如，按着键不放，音量增大。

1.定义变量记录键是否被按下，按下的累计时间

Dim 按下A键  As Boolean

Dim 按下A键时间 As Integer

2.添加一个TextBox1用于接收键盘事件，或者直接用窗体的键盘事件(确保KeyPreview为True)

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

If e.Keycode = keys.A Then 按下A键 = True

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

If e.Keycode = keys.A Then 按下A键 = False

3.添加一个Timer1控件，调整Timer1的Interval来决定按键频率，记得要把Timer1.Enable开启

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

If 按下A键 = True

按下A键时间+=1

Call 音量设置(按下A键时间 * 10)

End If

PS: 按下的秒数 = 按下A键时间*Timer1.Interval / 1000

vb.net判断鼠标左键长按

很简单，加入全局变量中有一个变量，mousedown事件中设为1，在mouseup事件中置为0。这样就能实现你说的功能。

以下参考

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

文章名称：vb.net键盘长按 vb 发送按下键盘指令
分享地址：http://shouzuofang.com/article/dojdsjo.html