|
|
|
VB中创建超长时间计时器对象
|
| |
关键词：vb 计时器 对象
vb系统中提供了固有计时器timer控件，通过给计时器控件的interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒,约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本文给出用timer控件创建一个超长时间的计时器对象，并将其编译成activex dll部件，供其它应用程序调用，可实现最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程设计过程，供读者参考选用。
1．编写程序
启动vb，新建一个activex dll工程，将工程命名为newtimer，将类模块名class1改名为longtimer。在工程中添加一个窗体form1，在窗体上加入一个timer计时器控件timer1。打开longtimer类模块，加入如下程序代码：
option explicit
public event tick() 声明事件
private nz as integer
private cs as integer
private m_form as form1
|
|
|
|
|
|
|
|
|
| 广告载入中... |
| 广告载入中... |
| 广告载入中... |
|
|
|
|
|
教育论文中心