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 timer控件触发按钮的click事件

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

m = m + 1

n = m.tostring

TextBox1.Text = n

End Sub

m=m+1

n = m.tostring

textbox1.text = n

把这几句原来在button2 click事件里面的代码，直接写在 timer事件里面，把timer的Enabled属性设置为True, Interval属性设置为1000，就可以了。

vb.net问题 事件触发

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Timer5.Enabled = True

time = 1

End Sub

Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick

'Call Button1_Click(sender, e)

'time = time + 1

time = time + 1                                         '反过来

Call Button1_Click(sender, e)                           '反过来

If time = 100 Then

Timer5.Enabled = False

End If

End Sub

如何在VB.Net中触发一个控件的事件

比如你单击按钮，就触发了按钮的单击事件

你双击按钮，就触发了按钮的双击事件

当前文章：包含vb.net触发事件的词条
本文地址：http://azwzsj.com/article/hipoej.html