推荐文档列表

VB中创建超长时间计时器对象

时间:2021-10-01 09:22:44 计算机论文 我要投稿

VB中创建超长时间计时器对象

(长沙交通学院 信息与计算科学系  长沙410076) 作者:李湘江  邹筱梅

VB中创建超长时间计时器对象

摘 要:本文介绍在VB程序中用Timer控件创建一个超长时间的计时器对象,将其编译成ActiveX DLL部件,利用代码的可重用性,在其它应用程序中调用。

关键词: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

Private WithEvents m_Timer As Timer  '声明对象类变量

'返回Enable属性值

Public Property Get Enabled() As Boolean

  Enabled = m_Timer.Enabled

End Property

'设置Enable属性值

Public Property Let Enabled(ByVal vNewValue As Boolean)

    m_Timer.Enabled = vNewValue

End Property

'返回Interval属性值

Public Property Get Interval() As Long

  Interval = m_Timer.Interval

End Property

'设置Interval属性值

Public Property Let Interval(ByVal vNewValue As Long)

  cs = 0

  nz = vNewValue \ 65536 + 1

  m_Timer.Interval = vNewValue \ nz

End Property

'类初始化事件

Private Sub CLASS_Initialize()

&nbs

[1] [2] [3]