VB中时钟控件的几种运用摘要：时钟控件是VB屮一个非常重要的常用控件。它的主要功能是利用系统内部的计时器计时产行时间间隔，定时完成某项任务及进行某种后台处理•正确灵活的运用好时钟控件的设计，可以使我们在应用程序设计中产生非常理想的一些效果.本文用实例來介绍在VB程序中利用计时器控件与其它控件结合使用产生不同的应用效果。关键词：Timer控件；动态应用；动画设计中图分类号：TP31VB时钟控件(Timer)又称计时器、定时器控件，用于按指定的时间间隔周期性地自动触发事件。它主要有两个功能：一是用于定时完成某项任务，即每隔一段固建的时间就执行•次相同的任务。另-个是进行某种后台处理。时钟控件只有一个事件，就是Timer定时器事件。通过触发Timer事件，时钟控件可以有规律地隔一段时间执行一次代码。时钟控件的关键属性有两个：(1)Enabled用于设置Timer控件是否响应Timer定时器事件。属性值为true和false。(2)Interval用于返回或设置对Timer控件的定时器事件调用周期的时间间隔。以毫秒为单位，取值范围为0-65535毫秒。时钟控件在设计时出现在窗体中，而在程序运行阶段是不可见的。1计时器(Timer)控件与滚动条(Hscrollbar)控件的应用1.1自动求阶乘设计在窗体上设置1个滚动条控件、2个标签控件、1个时钟控件和2个命令按钮(如图1)。相应代码如下Dimn,j,I'定义N,J,I三个整型变量PrivateSubCommand1Click()"开始按钮事件Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()；暂停按钮事件Timerl・Enabled=FalseEnclSubPrivateSubTimerlTimer()timer事件过程n=HScrol11.ValueJ二1Fori=1Ton"循环计算N!j二j*iNextCisLabel1.Caption二Str(n)+“！二"Labe12.Caption二jIfHScrolll.Value<20Then，判断N是否超过20HScrol11.Value=HScrol11.Value+1ElseHScrol11.Value二1EndSub运行结果如图22计时器(Timer)控件与进度条(ProgressBar)控件的应用2.1复制进度表的设计ProgressBar是一高级控件包含在MicrosoftWindowsCommonControls6.0中，通过计时器控件Timer事件的控制就能产生一种进程效果。具体设计如下：在窗体上设置1个进度条(ProgressBar)控件、2个标签控件、1个时钟控件和2个命令按钮如图3,则相应代码如下：DimiAsInteger'定义变量IPrivateSubCommand1Click()"开始按钮事件Timer1.Enabled二TrueEndSubPrivateSubCommand2Click()"结束按钮事件EndEndSubPrivateSubForm_Load()"界面初始化Timer1.Enabled二Falselabel2.Caption二〃〃ProgressBar1.Max=100ProgressBarl.Min二1Timer1.Interval=100i二1EndSubPrivateSubTimerlTimer()'timer事件过程Tfi<100ThenProgressBar1.Value=iLabel2.Caption二〃述剩〃&Str(Int((100-i)/10))&〃秒〃i二i+1ElseLabel2.Caption=〃复制结束〃Label1.Caption二EndIfEndSub运行结果如43计时器(Timer)控件与标签(Label)控件的应用3.1动态字幕设计在窗体上设置1个标签控件、1个时钟控件和3个命令按钮(如图5)o则相应代码如下：PrivateSubCommand1Click()"开始按钮Timer1.Enabled=TrueTimer1.Enabled二FalseEndSubPrivateSubCommand3_Click()'退出按钮EndEndSubPrivateSubForm_Load()"窗体初始化Timer1.Enabled二FalseLabel1.Left=Forml.WidthLabel1.Caption二〃中华人民共和国"Label1.Fontsize=30Timer1.Interval=100EndSubPrivateSubTimerl_Timer()timer事件过程Label1.Left二Label1.Left一20TfLabel1.Left+Label1.Width>0ThenLabell.Left=Labell.Left一100ElseLabell.Left=Forml.WidthEndIfEndSub运行结果如图64计时器(Timer)控件与图片框(picturebox)控件和图像框(image)控件的应用。4.1放大图片在窗体上设置图片框(picturebox)控件、1个时钟控件和2个命令按钮(如图7)。贝U相应代码如下PrivateSubCommand1Click()"开始按钮Picturebox1.Visible=TrueTimer1.Enabled二TrueEndSubPrivateSubCommand2_Click()'退出按钮EndEndSubPrivateSubFormLoad()/窗体初始化Picturebox1.Visible二FalsePicturebox1.Enabled二FalsePictureboxl.Width=3000Pictureboxl.Height=2000EndSubPrivateSubTimerl_Timer()timer事件过程Pictureboxl.Width二Image1.Width+...