77.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

在VB中用定时控件实现长定时操作 


Timer控件可用来在一定时间间隔执行操作，然而，一个Timer控件的时间间隔
取值最大为64.767毫秒，这意味着即使最长的时间间隔也不比一分钟长多少（大约
64.8秒），也就是说一个Timer控件只能响应大约一分钟之内的事件。如果要响应
长时间的事件，例如，要开发一个学习系统的自我测试或考试过程，需要限制一个
考试时间，一般都在１０～１５０分钟，开始自动计时，时间到报警考试结束。则
需多个Timer控件配合使用，这样做显得既繁琐又不实用。其实，可以只用一个
Timer控件，在其Timer过程中使用一个计数器，从而响应任意长时间间隔的事件。
下面是一个定时实例的部分代码：

控 件 属 性　　　　 设置的值
Label1 Caption ″请输入限定时间（分钟）：
″
Text1 Text ″″
Command1 Caption ″确认″ 
Timer1 Interval ６００００
Enabled False
在窗体通用模块General里声明Ｎ、Ｔ两个变量，Ｎ作为计数器，Ｔ用来存放
限定时间。
DIM　Ｎ　AS　Integer
DIM　Ｔ　AS　String
Command1－　Click　（　　）
Ｔ＝Text1.Text
Timer1.Enabled＝True……
　　End Sub
Timer1－　Timer（　　）
Ｎ＝Ｎ＋１
if 　n＝val(T)　Then
　　Beep
　　 Timer１.Enabled＝False
　　 End if
End Sub
将定时器的Interval属性值设为６００００，使得计数器每分钟加１，当然也
可以设置为其他的值，如１０００，这样就使得计数器每秒钟加１，但这样要浪费
较多的系统时间。