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

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

2、60;                                              摘要：本文介绍在VB程序中用Timer控件创建一个超长时间的计时器对象，

3、将其编译成ActiveX DLL部件，利用代码的可重用性，在其它应用程序中调用。     关键词：Vb  计时器  对象          VB系统中提供了固有计时器Timer控件，通过给计时器控件的Interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒,约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本文给出用Timer控件创建一个超

4、长时间的计时器对象，并将其编译成ActiveX DLL部件，供其它应用程序调用，可实现最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程设计过程，供读者参考选用。          1编写程序     启动VB，新建一个ActiveX DLL工程，将工程命名为NewTimer，将类模块名Class1改名为LongTimer。在工程中添加一个窗体Form1，在窗体上加入一个Timer计时器控件Timer1。打开LongTimer类模块，加入如下程序代码： 

5、    Option Explicit     Public Event Tick()    '声明事件     Private nz As Integer     Private cs As Integer     Private m_Form As Form1     Private WithEvents m_Tim

6、er As Timer  '声明对象类变量          '返回Enable属性值     Public Property Get Enabled() As Boolean       Enabled = m_Timer.Enabled     End Property      

7、0;   '设置Enable属性值     Public Property Let Enabled(ByVal vNewValue As Boolean)         m_Timer.Enabled = vNewValue     End Property          '返回Interval属性值 &#

8、160;   Public Property Get Interval() As Long       Interval = m_Timer.Interval     End Property          '设置Interval属性值     Public Property Let Interval(ByVal vNewValue As Lon

9、g)       cs = 0       nz = vNewValue 65536 + 1       m_Timer.Interval = vNewValue nz     End Property          '类初始化事件     Pri

10、vate Sub CLASS_Initialize()       Set m_Form = New Form1       Load m_Form       Set m_Timer = m_Form.Timer1     End Sub          '类终止事件 

11、0;   Private Sub CLASS_Terminate()       Unload m_Form       Set m_Timer = Nothing     End Sub          '产生Tick事件     Private Sub m_Timer_Timer()&

12、#160;      cs = cs + 1       If cs >= nz Then          RaiseEvent Tick          cs = 0       End If     End Sub&

13、#160;    窗体Form1只用来作计时器Timer1的载体，不用于显示。          2测试NewTimer.DLL     对ActiveX DLL部件进行测试，与标准的EXE程序一样，可分为单步运行或全运行。在写完所有程序代码后，建议用户先用Ctrl+F5进行全编译执行，发现检查NewTimer程序的语法错误。也可建立一个测试工程与NewTimer链接进行测试，针对由NewTimer类模块提供的每个属性和事件，添加测试代码来测试它

14、们的属性和方法。按F8，进入单步运行状态，逐个语句察看对NewTimer类模块的调用情况。          3编译NewTimer.DLL     完成测试，排除所有错误后，从“文件（F）”菜单中选择“生成NewTimer.dll（K)”命令，编译生成NewTimer.dll文件。编译成功后NewTimer.dll文件将自动注册到Windows注册表中，          4引用NewTimer

15、.DLL     引用ActiveX DLL部件同引用其他对象一样，从“工程（P）”菜单中选择“引用（N）”命令，打开引用窗口，从引用列表中选中NewTimer对象。如果是第一次引用NewTimer，则在引用窗体上单击“游览（B）”命令按钮，将NewTimer.DLL文件添加到可引用列表框中方可使用。          5调用NewTimer.DLL     在应用程序中加入下述程序代码，实现参NewTimer.dll的调用： 

16、;        Option Explicit         Dim WithEvents LongTimer1 As LongTimer                         Private Sub LongTimer1_T

17、ick()           Print "时间到，此处添加处理程序"         End Sub              Private Sub Command1_Click()        

18、60;  LongTimer1.Interval = 12000     两分钟           LongTimer1.Enabled = True         End Sub              Private Sub Form_Load()