计时器控件在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.Name = “华文彩云”
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控件。
rogressBar1)控件,实现功能的相关代码如下: (3)在窗体底部添加进度条(P
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()
Timer1.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 = LoadPicture(“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
6.JPG? Image1.Picture = LoadPicture(“f:\6.jpg”) „加载图片:End If
If t =35 Then „当t=35,图片再重复从1.JPG
开始加载?
t = 0
End If
End Sub
以上是笔者在
总结
初级经济法重点总结下载党员个人总结TXt高中句型全总结.doc高中句型全总结.doc理论力学知识点总结pdf
实际应用工作中的一些心得与体会,希望本篇文章能对首次使用VB制作启动界面的设计人员有所帮助, 以上程序代码均在VB6.0中运行通过。