计时器控件在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 = “欢迎进入梦想家园”

https://www.360docs.net/doc/0011814206.html, = “华文彩云”

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中运行通过。