VB中时钟控件几种运用

VB中时钟控件的几种运用
摘要：时钟控件是vb中一个非常重要的常用控件。

它的主要功能是利用系统内部的计时器计时产行时间间隔，定时完成某项任务及进行某种后台处理.正确灵活的运用好时钟控件的设计，可以使我们在应用程序设计中产生非常理想的一些效果. 本文用实例来介绍在vb程序中利用计时器控件与其它控件结合使用产生不同的应用效果。

关键词：timer控件；动态应用；动画设计
中图分类号：tp31
vb时钟控件（timer）又称计时器、定时器控件，用于按指定的时间间隔周期性地自动触发事件。

它主要有两个功能：一是用于定时完成某项任务，即每隔一段固定的时间就执行一次相同的任务。

另一个是进行某种后台处理。

时钟控件只有一个事件，就是timer 定时器事件。

通过触发timer事件，时钟控件可以有规律地隔一段时间执行一次代码。

时钟控件的关键属性有两个：（1）enabled用于设置timer控件是否响应timer定时器事件。

属性值为true和false。

（2）interval用于返回或设置对timer控件的定时器事件调用周期的时间间隔。

以毫秒为单位，取值范围为0-65535毫秒。

时钟控件在设计时出现在窗体中，而在程序运行阶段是不可见的。

1 计时器（timer）控件与滚动条（hscrollbar）控件的应用1.1 自动求阶乘设计
在窗体上设置1个滚动条控件、2个标签控件、1个时钟控件和2
个命令按钮（如图1）。

相应代码如下
dim n， j， i ‘定义n，j，i三个整型变量
private sub command1_click（）‘开始按钮事件
timer1.enabled = true
end sub
private sub command2_click（）；暂停按钮事件
timer1.enabled = false
end sub
private sub timer1_timer（）‘timer事件过程
n = hscroll1.value
j = 1
for i = 1 to n ‘循环计算n！
j = j * i
next
cls
label1.caption = str（n） + “！=“
label2.caption = j
if hscroll1.value private sub command3_click（）‘退出按钮
end
end sub
private sub form_load（）‘窗体初始化
label1.left = form1.width
label1.caption = “中华人民共和国”
label1.fontsize = 30
timer1.interval = 100
end sub
private sub timer1_timer（）‘timer事件过程
label1.left = label1.left - 20
if label1.left + label1.width > 0 then
label1.left = label1.left - 100
else
label1.left = form1.width
end if
end sub
运行结果如图6
4 计时器（timer）控件与图片框（picturebox）控件和图像框（image）控件的应用。

4.1 放大图片
在窗体上设置图片框（picturebox）控件、1个时钟控件和2个命令按钮（如图7）。

则相应代码如下
private sub command1_click（）‘开始按钮
picturebox1.visible = true
end sub
private sub command2_click（）‘退出按钮
end
end sub
private sub form_load（）‘窗体初始化
picturebox1.visible = false
picturebox1.enabled = false
picturebox1.width = 3000
picturebox1.height = 2000
end sub
private sub timer1_timer（）‘timer事件过程
picturebox1.width = image1.width + 50
picturebox1.height = image1.height + 30
if picturebox1.width > form1.width then
timer1.enabled = false
end if
end sub
运行结果如图8
图8 运行界面
4.2 飞舞的蝴蝶
在窗体上设置3图像框（image1（0）image1（1）image2）控件、
1个时钟控件和2个命令按钮（如图9）。

则相应代码如下dim x as integer，y as integer ‘定义变量
private sub command1_click（）‘开始按钮
if x= 0 then
x= 1：command1.caption = “停止”
else
x= 0：command1.caption = “开始”
end if
end sub
private sub command2_click（）‘退出按钮
end
end sub
private sub form_load（）
x= 0
y= 0
end sub
private sub timer1_timer（）‘timer事件过程
if x= 1 then
image2.picture = image1（y）.picture：y= y+ 1 if （y= 2） then
y= 0
end if
end if
end sub
运行结果如图10
以上均事例在vb6.0中运行通过。

通过上述几个例题的阐述，初步介绍了vb中时钟控件在实际中的部分应用，其实vb中的timer控件的应用非常广泛，不管是界面设计，动画设计以及其它等等，只要运用得当，就可取得意想不到的效果。

参考文献：
[1]李光明.vb6.0编程实例[m].北京：冶金工业出版社，2001.
[2]贾长云.可视化编程应用[m].北京：高等教育出版社，2008.
[3]刘炳文.vb程序设计教程[m].北京：清华大学出版社，2005. 作者简介：谭世兵（1963.7-），山东人，教师，讲师，研究方向：计算机网络。

作者单位：贵州省铜仁职业技术学院，贵州铜仁 554300。