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

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

1、VB中创建超长时间计时器对象.（长沙交通学院信息与计算科学系长沙410076）：李湘江邹筱梅摘　要：本文介绍在vb程序中用timer控件创建一个超长时间的计时器对象，将其编译成activexdll部件，利用代码的可重用性，在其它应用程序中调用。关键词：vb计时器对象vb系统中提供了固有计时器timer控件，通过给计时器控件的interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒,约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本文给出用timer控件创

2、建一个超长时间的计时器对象，并将其编译成activexdll部件，供其它应用程序调用，可实现最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程设计过程，供读者参考选用。1．编写程序启动vb，新建一个activexdll工程，将工程命名为neer，将类模块名class1改名为longtimer。在工程中添加一个窗体form1，在窗体上加入一个timer计时器控件timer1。打开longtimer类模块，加入如下程序代码：optionexplicitpubliceventtick()'声明事件privatenzasintegerprivate

3、csasintegerprivatem_formasform1private_timerastimer'声明对象类变量'返回enable属性值publicpropertygetenabled()asbooleanenabled=m_timer.enabledendproperty'设置enable属性值publicpropertyletenabled(byvalvne_timer.enabled=vne_timer.intervalendproperty'设置interval属性值publicpropertyletinterval(byvalvne_t

4、imer.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的载体，不用于显示。2．测试neer.dll对activexdll部件进行测试

5、，与标准的exe程序一样，可分为单步运行或全运行。在写完所有程序代码后，建议用户先用ctrl+f5进行全编译执行，发现检查neer程序的语法错误。也可建立一个测试工程与neer链接进行测试，针对由neer类模块提供的每个属性和事件，添加测试代码来测试它们的属性和方法。按f8，进入单步运行状态，逐个语句察看对neer类模块的调用情况。3．编译neer.dll完成测试，排除所有错误后，从“文件（f）”菜单中选择“生成neer.dll（k)”命令，编译生成neer.dll文件。编译成功后neer.dll文件将自动注册到er.dll引用activexdll部件

6、同引用其他对象一样，从“工程（p）”菜单中选择“引用（n）”命令，打开引用窗口，从引用列表中选中neer对象。如果是第一次引用neer，则在引用窗体上单击“游览（b）”命令按钮，将neer.dll文件添加到可引用列表框中方可使用。5．调用neer.dll在应用程序中加入下述程序代码，实现参neer.dll的调用：optionexplicitdimer1aslongtimerprivatesublongtimer1_tick()print"时间到，此处添加处理程序"endsubprivatesubmand1_click()longtimer1.inter

7、val=12000‘两分钟本文共2页:第1[2]页