6.3滚动条及计时器.pptVIP

6.3 滚动条和计时器控件 2008-4-7 6.3.1计时器控件(Timer) 计时器控件也称定时器或时钟，他是一种独立于用户,按一定时间间隔自动触发事件的控件，使用计时器可定时重复执行时钟中断过程。在程序运行时，计时器是不可见的。 Timer控件必须依附在窗体上，在窗体上放置计时器控件后，尽管在程序运行时不可见，但它依然在工作。因此，设计窗体时，可随意地把计时器控件放在窗体的某个位置上，并且允许同时使用多个定时器控件。 计时器控件在设计时显示为一个小时钟图标 ；在运行时并不显示在屏幕上，通常用标签来显示时间。 计时器功能：主要有两个功能 用于在程序中监视和控制时间进程，即每隔一段固定的时间就有规律地执行一次相同的任务。用于有规律地定时执行指定的工作，适合编写不需要与用户进行交互就可直接执行的代码，如定时检测系统或控件的状态、控制控件的移动、设置时钟、倒计时、秒表等；例如，移动一个条幅或一幅图片，构成动态效果，显示时钟等。 进行某种后台处理。 6.3.1.1 计时器属性 1. Interval属性 设定计时器触发Timer事件的时间间隔（ms） ，即两个计时器事件之间的时间间隔，其值以毫秒（0.001秒）为单位。该控件会自动检查系统时间是否又到Interval属性值，到了便产生Timer事件，执行时钟中断过程。 Interval 属性的有效值在0到65 535s之间，因此其最大时间间隔不能超过65秒, 其属性值既可在设计时设置，也可在程序运行时设置。若希望每秒执行n个计时器事件，则将Interval属性的值设置为1000/n。 定时器Interval属性值越小，定时器事件触发越频繁，响应事件所使用的处理器事件就越多，这将降低系统综合性能。除非有必要，否则不要设置过小的时间间隔。当Interval属性值为0或负数时屏蔽计时器，使计时器不再产生Timer事件,定时器停止工作。 2. 名称和其他属性 时钟控件有Name（名称）、Enabled、Left、Top、Interval等属性。系统的默认名称为Timer1、Timer2等。 3. Enabled 属性 用于决定是否启动定时器。当它的值为True时，时钟控件有效，开始从Interval属性的设置值计时；当它的值为False时，时钟控件无效，关闭定时器停止计时。 定时器的Enabled属性不同于其他对象的Enabled属性。对于大多数对象，Enabled属性决定对象是否响应用户触发的事件；定时器控件的Enabled属性值为False时，将暂停定时器操作。 6.3.1.2 定时器的事件 计时器控件的事件只有一个——Timer事件，是计时器在间隔了一个Interval时间后所触发的事件。 只要定时器控件的属性Enabled=True,而且Interval属性值大于0，则Timer事件以Interval 属性指定的时间间隔发生。 在Timer事件过程中编写需要定时进行的处理，可以周期性地激活Timer事件，每隔一段时间自动地调用一次Timer事件过程。在实际运用中，经常用Timer事件来实现有规律的重复操作和简单的动画。 VB没有为时钟控件提供有关的方法。 6.3.1.3 定时器应用举例 例6.4倒计数。设计一个窗体，在窗体上添加两个标签和一个计时器。运行程序时，自动开始倒计数，从10到0每隔一秒倒计数一次，计数时在两个标签中分别显示系统当前时间和倒计数的值。P129-130参见LT6_7.vbp 程序举例 例1 电子倒计时器。先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束” (1)在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和Text2)和一个命令按钮(Command1) 计时器的Enabled属性值为True, Interval属性值为0 (2)编写程序代码 Dim m As Integer, s As Integer ‘声明模块级变量 Private Sub Form_Load() Timer1.Interval = 1000  设置每隔1秒触发1次Timer事件 Timer1.Enabled = False 关闭计时器 End Sub Private Sub Command1_Click() “倒计时” m = Val(Text1.Text) s = Val(Text2.Text) Timer1.Enabled