VB中时钟控件的几种运用

《VB中时钟控件的几种运用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB中时钟控件的几种运用VB中时钟控件的几种运用摘耍：时钟控件是VB中一个非常重要的常用控件。它的主耍功能是利用系统内部的计时器计时产行时间间隔，定时完成某项任务及进行某种后台处理•正确灵活的运用好时钟控件的设计，可以使我们在应用程序设计中产生非常理想的一些效果.本文用实例来介绍在VB程序屮利用计时器控件与其它控件结合使用产生不同的应用效果。关键词：Timer控件；动态应用；动画设计中图分类号：TP31VB时钊

2、控件(Timer)又称计时器、定时器控件，用于按指定的时间间隔周期性地自动触发事件。它主要有两个功能：一是用于定时完成某项任务，即每隔一段固定的时

3、间就执行一次相同的任务。另一个是进行某种后台处理。时钟控件只有一个事件，就是Timer定时器事件。通过触发Timer事件，时钟控件可以有规律地隔一段时间执行一次代码。时钟控件的关键属性有两个：(1)Enabled用于设置Timer控件是否响应Timer定时器事件。属性值为true和false。(2)Interval用于返冋或设置对Timer控件的定时器事件调用周期的时间间隔。以毫秒为单位，取值范围为0-65535毫秒。时钟控件在设计时出现在窗体中，而在程序运行阶段是不可见的。1计时器(Timer)控件与滚动条(Hscrollbar)控件的应用1.1自动求阶

4、乘设计在窗体上设置1个滚动条控件、2个标签控件、1个时钟控件和2个命令按钮(如图1)。相应代码如下Dimn,j,I'定义N,J,I三个整型变量PrivateSubCommandlClick()/开始按钮事件Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()；暂停按钮事件Timer1.Enabled二FalseEndSubPrivateSubTimerl_Timer()"timer事件过程n二HScrolll.ValueJ二1Fori=1Ton《循环计算N!j二j*iNextCisLabel1.Captio

5、n二Str(n)+〃！二〃Labe12・Caption二jIfHScrolll.Value<20Then，判断N是否超过20HScrolll.Value二HScrolll.Value+1ElseHScrolll.Value=1EndIfEndSub运行结果如图22计吋器(Timer)控件与进度条(ProgressBar)控件的应用2.1复制进度表的设计ProgressBar是一高级控件包含在MicrosoftWindowsCommonControls6.0中，通过计时器控件Timer事件的控制就能产生一种进程效果。具体设计如下：在窗体上设置1个进度条(Pr

6、ogressBar)控件、2个标签控件、1个时钟控件和2个命令按钮如图3,则相应代码如下：DimiAsInteger"定义变量IPrivateSubCommand1Click()1开始按钮事件Timer1.Enabled二TrueEndSubPrivateSubCommand2_Click()'结束按钮事件EndEndSubPrivateSubFormLoad()"界面初始化Timer1.Enabled二Falselabel2.Caption二〃〃ProgressBarl.Max=100ProgressBarl.Min二1Timer1.Interval二1

7、00i二1EndSubPrivateSubTimerl_Timer()timer事件过程Ifi<100ThenProgressBarl.Value二iLabel2.Caption二"还剩〃&Str(Int((100-i)/10))&〃秒〃i二i+1ElseLabe12.Caption=〃复制结束〃Label1.Caption二EndIfEndSub运行结果如43计时器(Timer)控件与标签(Label)控件的应用3.1动态字幕设计在窗体上设置1个标签控件、1个吋钟控件和3个命令按钮(如图5)。则相应代码如下：PrivateSubCommand1Click

8、()'开始按钮Timer1.Enabled二TrueEndSubPrivateSubCommand2_Click()"停止按钮Timer1.Enabled二FalseEndSub