4.5 计时器控件

1 ．计时器的用途

计时器（ Timer ）也是工具箱中的一个标准控件，它每隔一定的时间产生一次 Timer 事件（或称报时），可根据这个特性来定时控制某些操作，或进行计时。

2 ．常用属性

（ 1 ） Enabled 属性：确认计时器是否可用。

（ 2 ） Interval 属性：设置两个 Timer 事件之间的时间间隔，其值以毫秒为单位，取值范围为 0~65535 。

3 ．事件

计时器控件只响应一个 Timer 事件。

[ 例 4.8] 建立一个电子时钟。

（ 1 ）创建应用程序用户界面和设置对象属性。 如图 4.7 所示。

图 4.7 例 4.8 设计界面

（ 2 ）程序代码如下：

Private Sub Timer1_Timer()

Text1.Text = Time

End Sub

程序运行后，即可见图 4.8 所示的电子时钟。

图 4.8 电子时钟

[ 例 4.9] 实现字体的放大。

（ 1 ）创建应用程序用户界面和设置对象属性。 如图 4.9 所示。

图 4.9 例 4.9 的设计界面

（ 2 ）编写程序代码如下：

Private Sub Form_Load()

Label1.Caption = " 放大 "

Label1.Width = Form1.Width

Label1.Height = Form1.Height

Timer1.Interval = 800

End Sub

Private Sub Timer1_Timer()

If Label1.FontSize < 140 Then

Label1.FontSize = Label1.FontSize * 1.2

Else

Label1.FontSize = 8

End If

End Sub