6.3滚动条和计时器

《6.3滚动条和计时器》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、6.3滚动条和计时器控件2008-4-76.3.1计时器控件(Timer)计时器控件也称定时器或时钟，他是一种独立于用户,按一定时间间隔自动触发事件的控件，使用计时器可定时重复执行时钟中断过程。在程序运行时，计时器是不可见的。Timer控件必须依附在窗体上，在窗体上放置计时器控件后，尽管在程序运行时不可见，但它依然在工作。因此，设计窗体时，可随意地把计时器控件放在窗体的某个位置上，并且允许同时使用多个定时器控件。计时器控件在设计时显示为一个小时钟图标；在运行时并不显示在屏幕上，通常用标签来显示时间。计时器功能：主要有

2、两个功能用于在程序中监视和控制时间进程，即每隔一段固定的时间就有规律地执行一次相同的任务。用于有规律地定时执行指定的工作，适合编写不需要与用户进行交互就可直接执行的代码，如定时检测系统或控件的状态、控制控件的移动、设置时钟、倒计时、秒表等；例如，移动一个条幅或一幅图片，构成动态效果，显示时钟等。进行某种后台处理。属性说明Enanled该属性为True时，定时器开始工作，为False时暂停Interval该属性用来设置定时器触发的周期（以毫秒计）取值范围为0～655356.3.1.1计时器属性设定计时器触发Timer事

3、件的时间间隔（ms），即两个计时器事件之间的时间间隔，其值以毫秒（0.001秒）为单位。该控件会自动检查系统时间是否又到Interval属性值，到了便产生Timer事件，执行时钟中断过程。Interval属性的有效值在0到65535s之间，因此其最大时间间隔不能超过65秒,其属性值既可在设计时设置，也可在程序运行时设置。若希望每秒执行n个计时器事件，则将Interval属性的值设置为1000/n。定时器Interval属性值越小，定时器事件触发越频繁，响应事件所使用的处理器事件就越多，这将降低系统综合性能。除非有必要

4、，否则不要设置过小的时间间隔。当Interval属性值为0或负数时屏蔽计时器，使计时器不再产生Timer事件,定时器停止工作。1.Interval属性对象名.Interval=数值2.名称和其他属性时钟控件有Name（名称）、Enabled、Left、Top、Interval等属性。系统的默认名称为Timer1、Timer2等。3.Enabled属性用于决定是否启动定时器。当它的值为True时，时钟控件有效，开始从Interval属性的设置值计时；当它的值为False时，时钟控件无效，关闭定时器停止计时。定时器的En

5、abled属性不同于其他对象的Enabled属性。对于大多数对象，Enabled属性决定对象是否响应用户触发的事件；定时器控件的Enabled属性值为False时，将暂停定时器操作。6.3.1.2定时器的事件计时器控件的事件只有一个——Timer事件，是计时器在间隔了一个Interval时间后所触发的事件。只要定时器控件的属性Enabled=True,而且Interval属性值大于0，则Timer事件以Interval属性指定的时间间隔发生。在Timer事件过程中编写需要定时进行的处理，可以周期性地激活Timer事件

6、，每隔一段时间自动地调用一次Timer事件过程。在实际运用中，经常用Timer事件来实现有规律的重复操作和简单的动画。VB没有为时钟控件提供有关的方法。6.3.1.3定时器应用举例例6.4倒计数。设计一个窗体，在窗体上添加两个标签和一个计时器。运行程序时，自动开始倒计数，从10到0每隔一秒倒计数一次，计数时在两个标签中分别显示系统当前时间和倒计数的值。P129-130参见LT6_7.vbp程序举例例1电子倒计时器。先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束”(1)

7、在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和Text2)和一个命令按钮(Command1)计时器的Enabled属性值为True,Interval属性值为0(2)编写程序代码DimmAsInteger,sAsInteger‘声明模块级变量PrivateSubForm_Load()Timer1.Interval=1000'设置每隔1秒触发1次Timer事件Timer1.Enabled=False'关闭计时器EndSubPrivateSubCommand1_Click()'“倒计时”m=V

8、al(Text1.Text)s=Val(Text2.Text)Timer1.Enabled=True'打开计时器EndSubPrivateSubTimer1_Timer()Ifs>0Thens=s-1ElseIfm>0Thenm=m-1s=59EndIfEndIfText1.Text=Format(m,"00")Text2.Text=Forma