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

　　
　　'产生Tick事件
　　
　　PrivateSubm_Timer_Timer()
　　
　　cs=cs+1
　　
　　Ifcs>=nzThen
　　
　　RaiseEventTick
　　
　　cs=0
　　
　　EndIf
　　
　　EndSub
　　
　　窗体Form1只用来作计时器Timer1的载体，不用于显示。
　　
　　2．测试NewTimer.DLL
　　
　　对ActiveXDLL部件进行测试，与标准的EXE程序一样，可分为单步运行或全运行。在写完所有程序代码后，建议用户先用Ctrl+F5进行全编译执行，发现检查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
　　
　　PrivateSubLongTimer1_Tick()
　　
　　Print"时间到，此处添加处理程序"
　　
　　EndSub
　　
　　PrivateSubCommand1_Click()
　　
　　LongTimer1.Interval=12000‘两分钟
　　
　　LongTimer1.Enabled=True
　　
　　EndSub
　　
　　PrivateSubForm_Load()
　　
　　SetLongTimer1=NewLongTimer
　　
　　EndSub
　　
　　参考文献
　　
　　[2]东箭工作室.VisualBasic5.0中文版程序设计.清华大学出版社，1997
　　
　　[3]EvangelosPetroutsos.VisualBasic5从入门到精通.北京：电子工业出版社，1997
　　
　

上一页  [1] [2] 

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