关于vb.net键盘触发事件的信息

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

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

创新互联专业为企业提供长阳网站建设、长阳做网站、长阳网站设计、长阳网站制作等企业网站建设、网页设计与制作、长阳企业网站模板建站服务，10余年长阳做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

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

1、将窗口的KeyPreview属性设置为True

Me.KeyPreview = True

2、处理窗口的KeyDown事件

Sub MainFormKeyDown(sender As Object, e As KeyEventArgs)

Select Case e.KeyCode

Case Keys.Escape

Me.button1.PerformClick

Case Keys.Enter

Me.button2.PerformClick

End Select

End Sub

执行键盘事件方法如下：

第一步，点击VS工具。

第二步，打开后，新建一个Windows窗体应用程序。

第三步，请看右下方Form的属性栏。

第四步，双击KeyDown。

第五步，输入提示按键代码，如图所示。

第六步，再次输入代码，设置属性KeyPreview为true。

第七步，运行程序，按下举例F5，则会弹出提示，表明已经成功获。

本文标题：关于vb.net键盘触发事件的信息
URL地址：http://pwwzsj.com/article/hieegc.html