【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了VB中创建超长时间计时器对象-计算机论文 - 其它论文相关资料，希望对各位网友有所帮助!

VB中创建超长时间计时器对象-计算机论文 真诚为您服务 摘要本文介绍在VB程序中用Timer控件创建一个超长时间的计时器对象将其编译成ActiveXDLL部件利用代码的可重用性在其它应用程序中调用。

     关键词Vb计时器对象VB系统中提供了固有计时器Timer控件通过给计时器控件的Interval属性设置不同的数值就可以控制计时器运行的时间间隔但该属性是一个双字节的整型变量最大值只能设置为65535即只有65535毫秒约一分钟多一点在需要长时间计时时该控件就无能为力了。

    本文给出用Timer控件创建一个超长时间的计时器对象并将其编译成ActiveXDLL部件供其它应用程序调用可实现最大限度地利用代码的可重用性。

    下面给出这个超长计时器对象的编程设计过程供读者参考选用。

    1编写程序 启动VB新建一个ActiveXDLL工程将工程命名为NewTimer将类模块名Class1改名为LongTimer。

    在工程中添加一个窗体Form1在窗体上加入一个Timer计时器控件Timer1。

    打开LongTimer类模块加入如下程序代码 OptionExplicit PublicEventTick声明对象类变量设置Enable属性值 PublicPropertyLetEnabled m_Timer.EnabledvNewValue EndProperty设置Interval属性值 PublicPropertyLetInterval cs0 nzvNewValue“655361 m_Timer.IntervalvNewValue“nz EndProperty类终止事件 PrivateSubCLASS_Terminate Unloadm_Form Setm_TimerNothing EndSub??产生Tick事件 PrivateSubm_Timer_Timer cscs1 IfcsnzThen RaiseEventTick cs0 EndIf EndSub 窗体Form1只用来作计时器Timer1的载体不用于显示。

    2测试NewTimer.DLL 对ActiveXDLL部件进行测试与标准的EXE程序一样可分为单步运行或全运行。

    在写完所有程序代码后建议用户先用CtrlF5进行全编译执行发现检查NewTimer程序的语法错误。

    也可建立一个测试工程与NewTimer链接进行测试针对由NewTimer类模块提供的每个属性和事件添加测试代码来测试它们的属性和方法。

    按F8进入单步运行状态逐个语句察看对NewTimer类模块的调用情况。

    3编译NewTimer.DLL 完成测试排除所有错误后从“文件”菜单中选择“生成NewTimer.dll”菜单中选择“引用”命令打开引用窗口从引用列表中选中NewTimer对象。

    假如是第一次引用NewTimer则在引用窗体上单击“游览”命令按钮将NewTimer.DLL文件添加到可引用列表框中方可使用。

    5调用NewTimer.DLL 在应用程序中加入下述程序代码实现参NewTimer.dll的调用 OptionExplicit DimWithEventsLongTimer1AsLongTimerPrivateSubLongTimer1_Tick Print“时间到此处添加处理程序“ EndSubPrivateSubCommand1_Click LongTimer1.Interval12000??两分钟 LongTimer1.EnabledTrue EndSubPrivateSubForm_Load SetLongTimer1NewLongTimer EndSub 参考文献 东箭工作室.VisualBasic5.0中文版程序设计.清华大学出版社1997 EvangelosPetroutsos.VisualBasic5从入门到精通.北京电子工业出版社1997