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教程之vb.net的Button控件
vb.net的Button控件
Button(按钮)控件一般接受鼠标单击事件被用来启动、中断或结束一个进程(相当于Visual Basic以前版本的CommandButton控件)。单击Button控件时将调用已写入Click事件过程中的过程。Button控件在大多数Visual Basic应用程序中都会用到,用户可以单击按钮执行操作。单击时,按钮不仅能执行相应的操作,而且看起来与被按下和松开一样。Button控件在工具箱中的图标如图所示:
1.向窗体添加按钮
在应用程序中很可能要使用多个按钮。就象在其他容器控件上绘制按钮那样,从工具箱里把Button控件直接拖到窗体上即可。可用鼠标调整按钮的大小,也可通过设置Location(坐标,用来确定控件相对窗体左上方顶点的位置)和Size(大小,第一个参数代表宽度,第二个参数代表高度)属性进行调整。
2.设置按钮显示文本
可用Text属性改变按钮上显示的文本。设计时,可在控件的“属性窗口”中设置此属性。在设计时设置Text属性后将动态更新按钮文本。Text属性最多包含255个字符。若标题超过了命令按钮的宽度,则会折到下一行。但是,如果控件无法容纳其全部长度,则标题会被剪切。可以通过设置Font属性改变在命令按钮上显示的字体。
3.创建键盘快捷方式
可通过Text属性创建按钮的访问键快捷方式。为此,只需在作为访问键的字母前添加一个连字符()。例如,要为标题“Ok”创建访问键,应在字母“O”前添中连字符,于是得到“Ok”。运行时,字母“O”将带下划线,同时按Alt+O键就可执行单击按钮程序所执行的动作。
注意:如果不创建访问键,而又要使标题中包含连字符,应添加两个连字符()。这样,在标题中就只显示一个连字符。
4.选定按钮
运行时,可用鼠标或键盘通过下述方法选定按钮:
(1)用鼠标单击按钮;
(2)按Tab键,将焦点转移到按钮上,然后按Enter键选定按钮;
(3)按按钮的访问键([Alt+带有下划线的字母])。
5.Click事件
运行时单击按钮,将触发按钮的Click事件并执行写入Click事件过程中的代码,同时,单击按钮的过程也将生成MouseMove、MouseLeave、MouseDown和MouseUp等事件。如果要在这些相关事件中附加事件过程,则应确保操作不发生冲突。对控件的操作不同,这些事件过程发生的顺序也不同。Button控件的单击事件发生顺序为:
MouseMove→MouseDown→Click→MouseUp→MouseLeave
注意:如果用户试图双击按钮控件,则其中每一次单击都将分别处理;也即按钮控件不支持双击事件。
6.增强按钮的视觉效果
按钮控件象复选框和选项按钮一样,可通过Image属性设置Button控件上的图标以增强视觉效果,然后设置图标(图片)的属性:ImageAlign显示图标(图片)的位置。通过设置ImageIndex(图片在图片框中的索引)以及ImageList(图片框)则可实现如下的效果,比如要向按钮添加图标或位图,或者在单击、禁止控件时显示不同的图象等等。
1. F12:转到定义;Shift+F12:转到引用
2. F5:启动;Ctrl+F5:开始执行(不调试);Shift+F5:停止调试
3. F7:查看代码;Shift+F7:查看视图设计器
4. Ctrl+Alt+L:解决方案资源管理器
5. Ctrl+Alt+J:对象浏览器
6. F4:显示属性窗口
7. Ctrl+Alt+X:工具箱
8. Ctrl+Alt+C类视图
9. Alt+Enter:查看属性
10.F10:逐过程调试
11.F11:逐语句调试
12.Ctrl+B:新断点
13.Ctrl+Shift+F9:清除所有断点
14.Ctrl+Shift+B生成解决方案
15.Shift+Alt+Enter:全屏
16.大纲显示:Ctrl+M, Ctrl+M:切换大纲显示展开;Ctrl+M, Ctrl+L:切换所有大纲显示;Ctrl+M,Crtl+P停止大纲显示;Ctrl+M, Ctrl+O:折叠到定义
17.智能感知:Ctrl+J:列出成员;Ctrl+Shift+空格:参数信息; Ctrl+K,Ctrl+I:快速信息;Alt+右箭头键:完成单词
⒃谙允景磁サ氖录�刑砑�br /me.backgroundimage=system.drawing.bitmap.fromfile("你的图片文件路径")
命令按钮1.Visable=False'或者命令按钮1.Hide
命令按钮2.Visable=False'或者命令按钮2.Hide
在窗体的Click事件中添加
命令按钮1.Visable=True'或者命令按钮1.show
命令按钮2.Visable=True'或者命令按钮2.show
me.backgroundimage=nothing
在退出按钮的事件中添加
End
2、这里应该还有两个Timer,Timer1和Timer2
在开始按钮的事件中添加
timer1.interval=1000
Timer1.enable=True
timer2.interval=500
timer2.enable=true
在Timer1的Tick事件中添加
label1.text=timeofday
在Timer2的Tick事件中添加
label2.left=label2.left 10
if label2.left