计时器控件在VB中的应用

计时器控件在VB中的应用计时器控件在工具箱中的名称是Timer，该控件是一个非可视控件，即在运行时不可见，用于实现每隔一定时间间隔执行指定的操作。Timer控件对于其他后台处理也是非常有用的。本文用实例来介绍在VB程序中利用计时器控件，实现在程序在启动运行期间各种不同的效果。下面给出编程设计过程，供读者参考选用。一、计时器（Timer）控件与标签(Label)控件的应用1、启动VB，新建工程。在工程中添加一个窗体Form1，在窗体上加入一个Timer计时器控件Timer1和标签控件Label12、编写相应的代码，实现不同的功能（1）字体颜色发生随机变化的效果，计时器事件（Timer）代码如下：l 窗体Form1的加载事件代码Private Sub Form_Load()Terval=500Label1.Caption = “欢迎进入VB应用程序”Label1.font.size=20Label1.autosize=trueEnd Subl 计时器（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 + 1Label1.Caption = Left(“欢迎进入VB应用程序”, i)If i 10 Theni = 0End IfEnd Sub（3）滚动字幕的实现效果，相关事件代码如下：l 窗体Form1的加载事件代码Private Sub Form_Load()Label1.Caption = “欢迎进入VB应用程序”End Subl 计时器（Timer1）控件的Timer事件代码Private Sub Timer1_Timer()If Label1.Left = Form1.Width ThenLabel1.Left = Label1.Left + 100ElseLabel1.Left = -Label1.WidthEnd IfEnd 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 Subl 窗体的加载事件代码：Private Sub Form_Load()Label1.Caption = “欢迎进入梦想家园”Label1.Font.Name = “华文彩云”Label1.Font.Size = 30Label1.AutoSize = TrueTimer1.Interval = 100End Subl Label2的单击事件代码如下：Private Sub Label2_Click()If Timer1.Enabled = True ThenTimer1.Enabled = FalseLabel2.Caption = “开始闪烁”ElseLabel2.Caption = “停止闪烁”Timer1.Enabled = TrueEnd IfEnd Subl 计时器（Timer）控件的Timer事件代码如下：Private Sub Timer1_Timer() Chc Label1, 1, 3, 5, 8, 10, 12, 14End 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 = 100End Subl 计时器（Timer1）控件的Timer事件代码Private Sub Timer1_Timer()t = t + 1ProgressBar1.Value = tIf t = 100 ThenUnload Me 当进度条到100%时，关闭当前窗体End IfEnd Sub三、计时器（Timer）控件与图像框（Image)控件的应用1、事先在F盘（其它盘也可以的）上存储几张扩展名为.JPG的图片，并依次取名为1.JPG、2.JPG、3.JPG、6.JPG（这里以保存在F盘上六张图片为例来作说明）2、添加计时器（Timer）控件3、图片实现幻灯片效果的相关代码如下：（1）窗体form1的加载事件代码Private Sub Form_Load()Timer1.Interval = 500 设置计时器（Timer）控件的时间间隔为0.5秒End Sub（2）计时器（Timer1）控件的Timer事件代码Dim t 声明变量Private Sub Timer1_Timer()t = t + 1If t = 5 ThenImage1.Picture = LoadPicture(“f:1.jpg”) 加载图片：1.JPGEnd IfIf t = 10 ThenImage1.Picture = LoadPicture(“f:2.jpg”) 加载图片：2.JPGEnd IfIf t = 15 ThenImage1.Picture = LoadPicture(“f:3.jpg”) 加载图片：3.JPGEnd IfIf t = 20 ThenImage1.Picture = LoadPicture(“f:4.jpg”) 加载图片：4.JPGEnd IfIf t = 25 ThenImage1.Picture = LoadPicture(“f:5.jpg”) 加载图片：5.JPGEnd IfIf t = 30 ThenImage1.Pic