下一课

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

1、启动VB

1）双击桌面上的图标，或者点开始菜单，运行VB；

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

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

2、使用控件

1）在窗体中添加一个标签、一个定时器、一个命令按钮，排列整齐；

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

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 的值为相反；

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

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

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