vb中创建超长时间计时器对象论文

《vb中创建超长时间计时器对象论文》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB中创建超长时间计时器对象论文摘要：本文介绍在VB程序中用Timer控件创建一个超长时间的计时器对象，将其编译成ActiveXDLL部件，利用代码的可重用性，在其它应用程序中调用。关键词：Vb计时器对象VB系统中提供了固有计时器Timer控件，通过给计时器控件的Interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535.freeler控件创建一个超长时间的计时器对象，并将其编译成ActiveXDLL部件，供其它应用程序调用，可实现

2、最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程设计过程，供读者参考选用。1．编写程序启动VB，新建一个ActiveXDLL工程，将工程命名为Neer，将类模块名Class1改名为LongTimer。在工程中添加一个窗体Form1，在窗体上加入一个Timer计时器控件Timer1。打开LongTimer类模块，加入如下程序代码：OptionExplicitPublicEventTick()'声明事件PrivatenzAsIntegerPrivatecsAsIntegerPrivatem

3、_FormAsForm1Private_TimerAsTimer'声明对象类变量'返回Enable属性值PublicPropertyGetEnabled()AsBooleanEnabled=m_Timer.EnabledEndProperty'设置Enable属性值PublicPropertyLetEnabled(ByValvNe_Timer.Enabled=vNe_Timer.IntervalEndProperty'设置Interval属性值PublicPropertyLetInterval(By

4、ValvNe_Timer.Interval=vNe_Form=Ne1Loadm_FormSetm_Timer=m_Form.Timer1EndSub'类终止事件PrivateSubCLASS_Terminate()Unloadm_FormSetm_Timer=NothingEndSub'产生Tick事件PrivateSubm_Timer_Timer()cs=cs+1Ifcs=nzThenRaiseEventTickcs=0EndIfEndSub窗体Form1只用来作计时器Timer1的载体，不用于显

5、示。2．测试Neer.DLL对ActiveXDLL部件进行测试，与标准的EXE程序一样，可分为单步运行或全运行。在写完所有程序代码后，建议用户先用Ctrl+F5进行全编译执行，发现检查Neer程序的语法错误。也可建立一个测试工程与Neer链接进行测试，针对由Neer类模块提供的每个属性和事件，添加测试代码来测试它们的属性和方法。按F8，进入单步运行状态，逐个语句察看对Neer类模块的调用情况。3．编译Neer.DLL完成测试，排除所有错误后，从“文件（F）”菜单中选择“生成Neer.dll（K)”命

6、令，编译生成Neer.dll文件。编译成功后Neer.dll文件将自动注册到er1AsLongTimerPrivateSubLongTimer1_Tick()Print"时间到，此处添加处理程序"EndSubPrivateSubmand1_Click()LongTimer1.Interval=12000‘两分钟LongTimer1.Enabled=TrueEndSubPrivateSubForm_Load()SetLongTimer1=NeerEndSub