摘 要：时钟控件是VB中一个非常重要的常用控件。它的主要功能是利用系统内部的计时器计时产行时间间隔，定时完成某项任务及进行某种后台处理.正确灵活的运用好时钟控件的设计，可以使我们在应用程序设计中产生非常理想的一些效果. 本文用实例来介绍在VB程序中利用计时器控件与其它控件结合使用产生不同的应用效果。

关键词：Timer控件；动态应用；动画设计

中图分类号：TP31

VB时钟控件（Timer）又称计时器、定时器控件，用于按指定的时间间隔周期性地自动触发事件。它主要有两个功能：一是用于定时完成某项任务，即每隔一段固定的时间就执行一次相同的任务。另一个是进行某种后台处理。时钟控件只有一个事件，就是Timer定时器事件。通过触发Timer事件，时钟控件可以有规律地隔一段时间执行一次代码。时钟控件的关键属性有两个：（1）Enabled用于设置Timer控件是否响应Timer定时器事件。属性值为true和false。（2）Interval用于返回或设置对Timer控件的定时器事件调用周期的时间间隔。以毫秒为单位，取值范围为0-65535毫秒。时钟控件在设计时出现在窗体中，而在程序运行阶段是不可见的。

1 计时器（Timer）控件与滚动条（Hscrollbar）控件的应用

1.1 自动求阶乘设计

在窗体上设置1个滚动条控件、2个标签控件、1个时钟控件和2个命令按钮（如图1）。相应代码如下

Dim n， j， I ‘定义N，J，I三个整型变量

Private Sub Command1_Click（） ‘开始按钮事件

Timer1.Enabled = True

End Sub

Private Sub Command2_Click（） ；暂停按钮事件

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer（） ‘timer事件过程

n = HScroll1.Value

j = 1

For i = 1 To n ‘循环计算N！

j = j * i

Next

Cls

Label1.Caption = Str（n） + "！="

Label2.Caption = j

If HScroll1.Value < 20 Then ‘判断N是否超过20

HScroll1.Value = HScroll1.Value + 1

Else

HScroll1.Value = 1

End If

End Sub

运行结果如图2

2 计时器（Timer）控件与进度条（ProgressBar）控件的应用

2.1 复制进度表的设计