设为首页|收藏本页|用户反馈|网站地图
今天是：
您现在的位置： 中华管理在线 >> 论文 >> IT类论文 >> 正文
论VB中创建超长时间计时器对象
作者：佚名    论文来源：本站整理    更新时间：2007-9-21

　　中华论文VB系统中提供了固有计时器Timer控件，通过给计时器控件的Interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒,约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本文给出用Timer控件创建一个超长时间的计时器对象，并将其编译成ActiveXDLL部件，供其它应用程序调用，可实现最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程设计过程，供读者参考选用。
　　
　　1．编写程序
　　
　　启动VB，新建一个ActiveXDLL工程，将工程命名为NewTimer，将类模块名Class1改名为LongTimer。在工程中添加一个窗体Form1，在窗体上加入一个Timer计时器控件Timer1。打开LongTimer类模块，加入如下程序代码：
　　
　　OptionExplicit
　　
　　PublicEventTick()'声明事件
　　
　　PrivatenzAsInteger
　　
　　PrivatecsAsInteger
　　
　　Privatem_FormAsForm1
　　
　　PrivateWithEventsm_TimerAsTimer'声明对象类变量
　　
　　'返回Enable属性值
　　
　　PublicPropertyGetEnabled()AsBoolean
　　
　　Enabled=m_Timer.Enabled
　　
　　EndProperty
　　
　　'设置Enable属性值
　　
　　PublicPropertyLetEnabled(ByValvNewValueAsBoolean)
　　
　　m_Timer.Enabled=vNewValue
　　
　　EndProperty
　　
　　'返回Interval属性值
　　
　　PublicPropertyGetInterval()AsLong
　　
　　Interval=m_Timer.Interval
　　
　　EndProperty
　　
　　'设置Interval属性值
　　
　　PublicPropertyLetInterval(ByValvNewValueAsLong)
　　
　　cs=0
　　
　　nz=vNewValue\65536+1
　　
　　m_Timer.Interval=vNewValue\nz
　　
　　EndProperty
　　
　　'类初始化事件
　　
　　PrivateSubCLASS_Initialize()
　　
　　Setm_Form=NewForm1
　　
　　Loadm_Form
　　
　　Setm_Timer=m_Form.Timer1
　　
　　EndSub
　　
　　'类终止事件
　　
　　PrivateSubCLASS_Terminate()
　　
　　Unloadm_Form
　　
　　Setm_Timer=Nothing
　　
　　EndSub

[1] [2] 下一页

延伸阅读：
  • 3Com无线教学解决方案
    计算机毕业论文-基于WEB的劳资人事
    论银行计算机网络风险防范与对策研
    • [165博客] [社区讨论] [打印此文] [责任编辑:小林]
    更多>>
    娱乐图文精彩推荐
    更多>>
    中华健康每日推荐
    更多>>
    中华财经创业
    今日财经要闻
    股市大盘
    创业指南
    管理学论文
    经济学论文