| | 网站首页 | 文秘范文 | 论文中心 | 小品剧本 | 小说 | 藏金阁 | 留言簿 | 汇款帮助 | 客服中心 | FAQ | 电视 | 免费文秘 | 代写 | | |
|
|
 |
您现在的位置： 中国文秘网 >> 论文中心 >> 计算机类论文 >> 正文 |  用户登录  新用户注册 |
| →中国文秘网温馨提示：为方便你访问本站，请将本站设为首页或加入收藏夹中(点击加入收藏)。 |
| 紧急公告：近来发现有些不法网站复制本站版面进行欺骗，为防止上当，敬请会员记好本站网址或把本站加入收藏夹中。 |
| 轻松入会,年卡、点卡任君选择,QQ及电话24小时服务,付款后5分钟开通,在线QQ:87651921 ,客服电话:013923833528,详情见"汇款须知" |
|
|||||
| VB中创建超长时间计时器对象 | |||||
| 作者：佚名 论文来源：中国文秘网 点击数：2561 更新时间：2006-4-5 | |||||
| 将此页收藏到： 网摘中国 | 新浪 | 热门 | Hao6 | 和讯 | 天极 | YouNote | 5Seek | 365Fav | 365key |博采 | 亿友响享 | 狐摘 | |||||
|
发布时间： 2004-04-10 作者： （长沙交通学院 信息与计算科学系 长沙410076） 作者：李湘江 邹筱梅 摘 要：本文介绍在VB程序中用Timer控件创建一个超长时间的计时器对象，将其编译成ActiveX DLL部件，利用代码的可重用性，在其它应用程序中调用。 关键词：Vb 计时器 对象 VB系统中提供了固有计时器Timer控件，通过给计时器控件的Interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒,约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本文给出用Timer控件创建一个超长时间的计时器对象，并将其编译成ActiveX DLL部件，供其它应用程序调用，可实现最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程设计过程，供读者参考选用。 1．编写程序 启动VB，新建一个ActiveX DLL工程，将工程命名为NewTimer，将类模块名Class1改名为LongTimer。在工程中添加一个窗体Form1，在窗体上加入一个Timer计时器控件Timer1。打开LongTimer类模块，加入如下程序代码： Option Explicit Public Event Tick() '声明事件 Private nz As Integer Private cs As Integer Private m_Form As Form1 Private WithEvents m_Timer As Timer '声明对象类变量 '返回Enable属性值 Public Property Get Enabled() As Boolean Enabled = m_Timer.Enabled End Property '设置Enable属性值 Public Property Let Enabled(ByVal vNewValue As Boolean) m_Timer.Enabled = vNewValue End Property '返回Interval属性值 Public Property Get Interval() As Long Interval = m_Timer.Interval End Property '设置Interval属性值 Public Property Let Interval(ByVal vNewValue As Long) cs = 0 nz = vNewValue \ 65536 + 1 m_Timer.Interval = vNewValue \ nz End Property '类初始化事件 Private Sub CLASS_Initialize() Set m_Form = New Form1 Load m_Form Set m_Timer = m_Form.Timer1 End Sub '类终止事件 Private Sub CLASS_Terminate() Unload m_Form Set m_Timer = Nothing End Sub '产生Tick事件 Private Sub m_Timer_Timer() cs = cs + 1 If cs >= nz Then RaiseEvent Tick cs = 0 End If End Sub 窗体Form1只用来作计时器Timer1的载体，不用于显示。 2．测试NewTimer.DLL 对ActiveX DLL部件进行测试，与标准的EXE程序一样，可分为单步运行或全运行。在写完所有程序代码后，建议用户先用Ctrl+F5进行全编译执行，发现检查NewTimer程序的语法错误。也可建立一个测试工程与NewTimer链接进行测试，针对由NewTimer类模块提供的每个属性和事件，添加测试代码来测试它们的属性和方法。按F8，进入单步运行状态，逐个语句察看对NewTimer类模块的调用情况。 3．编译NewTimer.DLL 完成测试，排除所有错误后，从“文件（F）”菜单中选择“生成NewTimer.dll（K)”命令，编译生成NewTimer.dll文件。编译成功后NewTimer.dll文件将自动注册到Windows注册表中， 4．引用NewTimer.DLL 引用ActiveX DLL部件同引用其他对象一样，从“工程（P）”菜单中选择“引用（N）”命令，打开引用窗口，从引用列表中选中NewTimer对象。如果是第一次引用NewTimer，则在引用窗体上单击“游览（B）”命令按钮，将NewTimer.DLL文件添加到可引用列表框中方可使用。 5．调用NewTimer.DLL 在应用程序中加入下述程序代码，实现参NewTimer.dll的调用： Option Explicit Dim WithEvents LongTimer1 As LongTimer Private Sub LongTimer1_Tick() Print "时间到，此处添加处理程序" End Sub Private Sub Command1_Click() LongTimer1.Interval = 12000 ‘两分钟 LongTimer1.Enabled = True End Sub Private Sub Form_Load() Set LongTimer1 = New LongTimer End Sub 参考文献 [2]东箭工作室.Visual Basic5.0中文版程序设计.清华大学出版社，1997 [3]Evangelos Petroutsos. Visual Basic5从入门到精通.北京：电子工业出版社，1997 ------------------------------------------------------------------------------ 作者简介：李湘江，男，工程师，主要从事网络、CAD、CAI、软件工程方面的应用研究。 作者单位：长沙交通学院信息与计算科学系 长沙410076 电话：0731-5219487（办） Email：lxjzy@263.net 转贴于 中国文秘网 http://www.zgwmw.com 《VB中创建超长时间计时器对象》来源于中国文秘网，中国最专业的文秘网站，欢迎阅读VB中创建超长时间计时器对象。 |
|||||
| 论文录入：中国文秘网 责任编辑：中国文秘网 | |||||
| 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 | |||||
| 最新热点 | 最新推荐 | 相关论文 | ||
| VB编程中网格控件的选用及使… |
 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 管理登录 | | |
 |
Copyright © 2005-2012 中国文秘网 WWW.ZGWMW.COM 版权所有 中华人民共和国信息产业部ICP编号：粤ICP备05123715号
在线客服 QQ：87651921 客服电话:(0)13923833528
本站实名：中国文秘网
注意：本站的文章只提供会员交流、参考用，旨在提高会员的写作能力和拓宽写作思路，请不要将本站文章转载或拿去发表，由此引起的后果会员自负；另外本站的文章部分来源于网络，如发现有侵权行为，请第一时间联系我们管理员给予删除！
站长：卧龙先生 Powered By Edong.com |
