.VB中创建超长时间计时器对象
雅思
培训
焊锡培训资料ppt免费下载焊接培训教程 ppt 下载特设培训下载班长管理培训下载培训时间表下载
班www.seeree.net
您现在的位置:论文天下 > 免费论文 > 计算机论文 > 计算机应用论文
VB中创建超长时间计时器对象
作者: 时间:2007/11/25 12:33:00 来源:论文天下论文网
雅思培训班www.seeree.net
摘 要:本文介绍在VB程序中用Timer控件创建一个超长时间的计时器对象,将其编译成ActiveX DLL部件,利用代码的可重用性,在其它应用程序中调用。
关键词:Vb 计时器 对象
VB系统中提供了固有计时器Timer控件,通过给计时器控件的Interval属性设置不同的数值,就可以控制计时器运行的时间间隔,但该属性是一个双字节的整型变量,最大值只能设置为65535,即只有65535毫秒,约一分钟多一点,在需要长时间计时时,该控件就无能为力了。本文给出用Timer控件创建一个超长时间的计时器对象,并将其编译成ActiveX DLL部件,供其它应用程序调用,可实现最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
过程,供读者参考选用。
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
雅思培训班www.seeree.net
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
雅思培训班www.seeree.net 在应用程序中加入下述程序代码,实现参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
北京:电子工业出版社,1997 [3]Evangelos Petroutsos. Visual Basic5从入门到精通.
【收藏本论文】【我的收藏】 【我要投稿】
3000万硕士、博士、期刊论文全文下载
论文发表:快速、低价、优质
提供60万硕士论文、10万博士论文、2700万期刊论文全文下载服务,助您一臂之力~
雅思培训班www.seeree.net
十年的论文发表经验,快捷的论文发表服务,保证所发表的杂志均为正规合法的期刊,收费同行最低~
[本文关键字] vb 计时器 对象 创建 时间
[版权说明]《VB中创建超长时间计时器对象》论文版权属于作者本人,您可以参考本论文进行论文创作,但不得抄袭、复制~本站免费论文主要来源于用户投稿(投稿网址),如果涉及到侵权问
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
,请联系lunwentianxia_card@163.com删除。
vb论文:
创建论文:
?巧用数组实现长整数的精确计算
?用VB构键Internet的应用-
?用VB制作网址链接器
?在VB中如何使用 Winsock 控件
?VB编程中网格控件的选用及使用方法
?论判例
制度
关于办公室下班关闭电源制度矿山事故隐患举报和奖励制度制度下载人事管理制度doc盘点制度下载
创建
?人文社会科学在创建创新型大学中的地位和作用
?Windows 2000系统编程——进程的创建
?创建门诊导医队伍的实践与探索
?浅议远程教育及对创建学习型社会的作用
雅思培训班www.seeree.net
时间论文:
?再论华北平原二年三熟轮作复种制形成的时间 ?货币时间价值在企业投资经营中的应用
?时间的文化特性
?新生儿体温测量部位和时间的临床研究
?生命历程理论的时间观探析
推荐期刊投稿
雅思培训班www.seeree.net
?新疆社会科学
?国土资源遥感
?现代免疫学
?机电产品市场
?河北教育(教学版)
?时代主人
?中国酿造
?中学物理教学参考
?建井技术
?体育博览
雅思培训班www.seeree.net
?考试(高考理科版)
?机械制造与自动化
?药物流行病学杂志
?江西煤炭科技
?现代制造技术与装备
?干旱区地理
?浙江政报
?党史博览
?固体电子学研究与进展
?盐城工学院学报(社会科学
雅思培训班www.seeree.net
?特区经济
?山东农业(农村经济版)
?电气应用
?小溪流(作文画刊)
?杭州电子科技大学学报
?浙江畜牧兽医
?甘肃金融
?生态毒理学报
?福建教育学院学报
?文教资料(高中版)
雅思培训班www.seeree.net