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

　　VB中创建超长时间计时器对象VB中创建超长时间计时器对象VB中创建超长时间计时器对象（长沙交通学院信息与计算科学系长沙410076）作者：李湘江邹筱梅
　　摘要：本文介绍在VB程序中用Timer控件创建一个超长时间的计时器对象，将其编译成ActiveXDLL部件，利用代码的可重用性，在其它应用程序中调用。
　　关键词：Vb计时器对象
　　VB系统中提供了固有计时器Timer控件，通过给计时器控件的Interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒，约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本文给出用Timer控件创建一个超长时间的计时器对象，并将其编译成ActiveXDLL部件，供其它应用程序调用，可实现最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程设计过程，供读者参考选用。
　　1编写程序
　　启动VB，新建一个ActiveXDLL工程，将工程命名为NewTimer，将类模块名Class1改名为LongTimer。在工程中添加一个窗体Form1，在窗体上加入一个Timer计时器控件Timer1。打开LongTimer类模块，加入如下程序代码：
　　OptionExplicit
　　PublicEventTick（）声明事件
　　PrivatenzAsInteger
　　PrivatecsAsInteger
　　PrivatemFormAsForm1
　　PrivateWithEventsmTimerAsTimer声明对象类变量
　　返回Enable属性值
　　PublicPropertyGetEnabled（）AsBoolean
　　EnabledmTimer。Enabled
　　EndProperty
　　设置Enable属性值
　　PublicPropertyLetEnabled（ByValvNewValueAsBoolean）
　　mTimer。EnabledvNewValue
　　EndProperty
　　返回Interval属性值
　　PublicPropertyGetInterval（）AsLong
　　IntervalmTimer。Interval
　　EndProperty
　　设置Interval属性值
　　PublicPropertyLetInterval（ByValvNewValueAsLong）
　　cs0
　　nzvNewValue655361
　　mTimer。IntervalvNewValuenz
　　EndProperty
　　类初始化事件
　　PrivateSubCLASSInitialize（）
　　SetmFormNewForm1
　　LoadmForm
　　SetmTimermForm。Timer1
　　EndSub
　　类终止事件
　　PrivateSubCLASSTerminate（）
　　UnloadmForm
　　SetmTimerNothing
　　EndSub
　　产生Tick事件
　　PrivateSubmTimerTimer（）
　　cscs1
　　InzThen
　　RaiseEventTick
　　cs0
　　EndIf
　　EndSub
　　窗体Form1只用来作计时器Timer1的载体，不用于显示。
　　2测试NewTimer。DLL
　　对ActiveXDLL部件进行测试，与标准的EXE程序一样，可分为单步运行或全运行。在写完所有程序代码后，建议用户先用CtrlF5进行全编译执行，发现检查NewTimer程序的语法错误。也可建立一个测试工程与NewTimer链接进行测试，针对由NewTimer类模块提供的每个属性和事件，添加测试代码来测试它们的属性和方法。按F8，进入单步运行状态，逐个语句察看对NewTimer类模块的调用情况。
　　3编译NewTimer。DLL
　　完成测试，排除所有错误后，从文件（F）菜单中选择生成NewTimer。dll（K）命令，编译生成NewTimer。dll文件。编译成功后NewTimer。dll文件将自动注册到Windows注册表中，
　　4引用NewTimer。DLL
　　引用ActiveXDLL部件同引用其他对象一样，从工程（P）菜单中选择引用（N）命令，打开引用窗口，从引用列表中选中NewTimer对象。如果是第一次引用NewTimer，则在引用窗体上单击游览（B）命令按钮，将NewTimer。DLL文件添加到可引用列表框中方可使用。
　　5调用NewTimer。DLL
　　在应用程序中加入下述程序代码，实现参NewTimer。dll的调用：
　　OptionExplicit
　　DimWithEventsLongTimer1AsLongTimer
　　PrivateSubLongTimer1Tick（）
　　Print时间到，此处添加处理程序
　　EndSub
　　PrivateSubCommand1Click（）LongTimer1。EnabledTrue
　　EndSub
　　PrivateSubFormLoad（）
　　SetLongTimer1NewLongTimer
　　EndSub
　　参考文献
　　〔2〕东箭工作室。VisualBasic5。0中文版程序设计。清华大学出版社，1997
　　〔3〕EvangelosPetroutsos。VisualBasic5从入门到精通。北京：电子工业出版社，1997
　　作者简介：李湘江，男，工程师，主要从事网络、CAD、CAI、软件工程方面的应用研究。
　　作者单位：长沙交通学院信息与计算科学系长沙410076Email：lxjzy263。net