计时器控件在VB中的应用

计时器控件在VB中的应用
计时器控件在工具箱中的名称是Timer，该控件是一个非可视控件，即在运行时不可见，用于实现每隔一定时间间隔执行指定的操作。

Timer控件对于其他后台处理也是非常有用的。

本文用实例来介绍在VB程序中利用计时器控件，实现在程序在启动运行期间各种不同的效果。

下面给出编程设计过程，供读者参考选用。

一、计时器（Timer）控件与标签(Label)控件的应用
1、启动VB，新建工程。

在工程中添加一个窗体Form1，在窗体上加入一个Timer 计时器控件Timer1和标签控件Label1
2、编写相应的代码，实现不同的功能
（1）字体颜色发生随机变化的效果，计时器事件（Timer）代码如下：
l 窗体Form1的加载事件代码
Private Sub Form_Load()
Timer1.interval=500
Label1.Caption = “欢迎进入VB应用程序”
Label1.font.size=20
Label1.autosize=true
End Sub
l 计时器（Timer1）控件的Timer事件代码
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub
（2）依次出现字幕的实现效果，相关事件代码如下：
Dim i …在通用-声明中定义变量…
Private Sub Timer1_Timer()
i = i + 1
Label1.Caption = Left(“欢迎进入VB应用程序”, i)
If i > 10 Then
i = 0
End If
End Sub
（3）滚动字幕的实现效果，相关事件代码如下：
l 窗体Form1的加载事件代码
Private Sub Form_Load()
Label1.Caption = “欢迎进入VB应用程序”
End Sub
l 计时器（Timer1）控件的Timer事件代码
Private Sub Timer1_Timer()
If Label1.Left <= Form1.Width Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = -Label1.Width
End If
End Sub
（4）制作字体闪烁的效果
l 在窗体上添加一个计时器控件：Timer1和两个标签控件：Label1、Label2，
l 在工具菜单中添加过程：Chc ，其相关代码如下：
Sub Chc(Cont As Control, Color1 As Integer, Color2 As Integer, Color3 As Integer, Color4 As Integer, Color5 As Integer, Color6 As Integer, Color7 As Integer) If Val(Cont.Tag) = Color1 Then
Cont.Tag = Color2
ElseIf Val(Cont.Tag) = Color2 Then
Cont.Tag = Color3
ElseIf Val(Cont.Tag) = Color3 Then
Cont.Tag = Color4
ElseIf Val(Cont.Tag) = Color4 Then
Cont.Tag = Color5
ElseIf Val(Cont.Tag) = Color5 Then
Cont.Tag = Color6
ElseIf Val(Cont.Tag) = Color6 Then
Cont.Tag = Color7
ElseIf Val(Cont.Tag) = Color7 Then
Cont.Tag = Color1
Else
Cont.Tag = Color1
End If
Cont.ForeColor = QBColor(Cont.Tag)
End Sub
l 窗体的加载事件代码：
Private Sub Form_Load()
Label1.Caption = “欢迎进入梦想家园”
= “华文彩云”
Label1.Font.Size = 30
Label1.AutoSize = True
Timer1.Interval = 100
End Sub
l Label2的单击事件代码如下：
Private Sub Label2_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Label2.Caption = “开始闪烁”
Else
Label2.Caption = “停止闪烁”
Timer1.Enabled = True
End If
End Sub
l 计时器（Timer）控件的Timer事件代码如下：
Private Sub Timer1_Timer()
Chc Label1, 1, 3, 5, 8, 10, 12, 14
End Sub
二、计时器（Timer）控件与进度条(ProgressBar)控件的应用
1、启动VB，新建工程。

在工程中添加一个窗体Form1，添加计时器（Timer）控件
2、添加进度条（ProgressBar）控件
工具栏控件是VB专业版和企业版所特有的ActiveX控件，可以将其添加到工具箱中，以便在工程中使用，操作方法为：
（1）在主菜单中选择”工程”，在“工程”下拉菜单中选择”部件”，即可打开”部件”对话框
（2）选中Microsoft Windows Common Controls6.0，用鼠标单击“确定”按钮，即可在工具箱中增加一组控件。

其中用来创建进度条的控件是ProgressBar控件。

（3）在窗体底部添加进度条（ProgressBar1）控件，实现功能的相关代码如下：l 窗体Form1的加载事件代码
Dim t …声明变量‟
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
l 计时器（Timer1）控件的Timer事件代码
Private Sub Timer1_Timer()
t = t + 1
ProgressBar1.Value = t
If t = 100 Then
Unload Me …当进度条到100%时，关闭当前窗体‟
End If
End Sub
三、计时器（Timer）控件与图像框（Image)控件的应用
1、事先在F盘（其它盘也可以的）上存储几张扩展名为.JPG的图片，并依次取名为1.JPG、2.JPG、3.JPG…………、6.JPG（这里以保存在F盘上六张图片为例来作说明）
2、添加计时器（Timer）控件
3、图片实现幻灯片效果的相关代码如下：
（1）窗体form1的加载事件代码
Private Sub Form_Load()
T imer1.Interval = 500 …设置计时器（Timer）控件的时间间隔为0.5秒‟
End Sub
（2）计时器（Timer1）控件的Timer事件代码
Dim t …声明变量‟
Private Sub Timer1_Timer()
t = t + 1
If t = 5 Then
Image1.Picture = LoadPicture(“f:\1.jpg”) …加载图片：1.JPG‟
End If
If t = 10 Then
Image1.Picture = LoadP icture(“f:\2.jpg”) …加载图片：2.JPG‟
End If
If t = 15 Then
Image1.Picture = LoadPicture(“f:\3.jpg”) …加载图片：3.JPG‟
End If
If t = 20 Then
Image1.Picture = LoadPicture(“f:\4.jpg”) …加载图片：4.JPG‟
End If
If t = 25 Then
Image1.Picture = LoadPicture(“f:\5.jpg”) …加载图片：5.JPG‟
End If
If t = 30 Then
Image1.Picture = LoadPicture(“f:\6.jpg”) …加载图片：6.JPG‟
End If
If t =35 Then …当t=35，图片再重复从1.JPG 开始加载‟
t = 0
End If
End Sub
以上是笔者在总结实际应用工作中的一些心得与体会，希望本篇文章能对首次使用VB制作启动界面的设计人员有所帮助，以上程序代码均在VB6.0中运行通过。