VB程序设计基础

作者:TeliuTe 来源:基础教程网

九、定时器控件 返回目录 下一课

 定时器可以控制代码定时运行,例如屏幕保护程序,下面我们来看一个练习;

 1、启动VB

 1)双击桌面上的图标,或者点开始菜单,运行VB;

 a1tb.gif

 2)在出来的新建窗口中,点“打开”按钮,新建一个标准EXE工程,然后进入主窗口,以 Timer 为文件名保存文件到自己的文件夹;

 

 3)在属性窗口中设置背景色,把标题改为“定时器”,设定Icon图标选项;

 

 2、使用控件

 1)在窗体中添加一个标签、一个定时器、一个命令按钮,排列整齐;

 修改标题:标签改成“我的定时器”,FillStyle 属性改成透明 2-Transpare ,定时器的Interval 属性改成2000,它的单位是毫秒也就是2秒钟,按钮改成“退出”;

 b1kj.gif

 

 2)保存一下,运行程序看看效果,好像找不着小闹钟,这是因为定时器是在代码中设置的;

 

 3、输入代码

 1)进入代码窗口,先输入下面一句代码,定义一个布尔变量 b;

Dim b As Boolean

 2)再在左边列表选择定时器 Timer1,输入下面的代码;

Private Sub Timer1_Timer()
  If b Then
    Label1.Caption = "保护视力"
  Else
    Label1.Caption = "预防近视"
  End If
 
  b = Not b
End Sub

 3)if 是判断语句,根据 b 的情况来执行下面两句,如果为真执行第一句,否则执行第二句,然后修改一下 b 的值为相反;

 c3dm.gif

 

 4)再输入退出按钮的代码,保存一下文件,运行程序看看效果;

 c4yx.gif

 

 定时器范例(在弹出的对话框中点“运行、运行”)

 

 本节学习了定时器的使用方法,如果你成功地完成了练习,请继续学习下一课内容;

返回目录 下一课

本教程由86团学校TeliuTe制作|著作权所有

基础教程网:http://teliute.org/

美丽的校园……

转载和引用本站内容,请保留作者和本站链接。