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

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

（长沙交通学院 信息与计算科学系  长沙410076） 作者：李湘江  邹筱梅

摘　要：本文介绍在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] 

【VB中创建超长时间计时器对象】相关文章：

适合跨年时给对象发的超长句子（精选80句）04-24

计时器作文09-22

论新世纪审美对象的创建04-29

浅谈VB语言在道路设计中的应用04-27

地球年龄计时器04-28

超长的说说04-13

超长电磁波法在隐伏断裂探测中的应用04-27

混合网在超长隧洞平面控制测量中的应用04-27

三维地质图在VB中的构筑与实现05-01

空间超长说说06-08