计时器控件(Timer)在VB中的应用.pdf

计 时器 控 件 (Tim er )在Vs 中的应 用 李 蕾 (长征职业技术学院信息技术与应用系，浙江 杭州 3 10023) 摘 要: 计时X (Timer ) 控件能有规律地 以一 Dim i 在‘通用一声 明中定义变量 ’ 定的时间间隔激发计时器事件(Timer ) 而执行相 Private Sub Timer l T imero 应的事件代码 ，通过给计 时器控件 的Interval 属性 i = i + 1 设笠不 同的数值 ，就可 以控制计 时器运行 的时间 Labell .Caption = Left(，欢迎进人VB应用程序”，i) 间 隔 。 If i 10 Th en 关键 词 : VB 计 时器 对 象 i = 0 E n d I f 计时器控件在工具箱 中的名称是Timer ，该控 En d Su b 件是一个非可视控件 ，即在运行时不可见 ，用于实 (3)滚动字幕的实现效果 ，相关事件代码如下: 现每隔一定时间间隔执行指定 的操作 。Timer控件 * 窗体Form 1的加载事件代码 对于其他后台处理也是非常有用的。本文用实例来 Private Sub Form- Loado 介绍在VB程序 中利用计时器控件 ，实现在程序启 Labell .Caption = ”欢迎进人VB应用程序” 动运行期间各种不 同的效果 。下面给 出编程设计过 En d Su b 程 ，供读者参考选用 。 * 计时器(Timerl )控件的Timer事件代码 一、计时器(Timer)控件与标签(Label)控件的应用 Private Sub Timer l 一imero 1. 启动VB ，新建工程。在工程中添加一个窗体 If Lab el l .Left = F orm I .W ldth Th en Form1，在窗体上加人一个Timer计时器控件Timer l Lab el l .Left = La b el l .Left + 10 0 和标签控件Labell a E l se 2. 编写相应的代码，实现不同的功能 Lab el l .Left = - Lab el l .Width ( 1)字体颜色发生随机变化的效果 ，计时器事 En d I f 件(Timer )代码如下: En d Su b * 窗体Forml 的加载事件代码 (4 )制作字体闪烁