VB中创建超长计时器象
VB中创建超长时间计时器象 发布时间： 20040410 作者： （长沙交通学院 信息计算科学系 长沙410076） 作者：李湘江 邹筱梅 摘 ：文介绍VB程序中Timer控件创建超长时间计时器象编译成ActiveX DLL部件利代码重性应程序中调
关键词：Vb 计时器 象 VB系统中提供固计时器Timer控件通计时器控件Interval属性设置数值控制计时器运行时间间隔该属性双字节整型变量值设置6553565535毫秒约分钟点需长时间计时时该控件力
文出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_TimerEnabled End Property 设置Enable属性值 Public Property Let Enabled(ByVal vNewValue As Boolean) m_TimerEnabled vNewValue End Property 返回Interval属性值 Public Property Get Interval() As Long Interval m_TimerInterval End Property 设置Interval属性值 Public Property Let Interval(ByVal vNewValue As Long) cs 0 nz vNewValue ＼ 65536 1 m_TimerInterval vNewValue ＼ nz End Property 类初始化事件 Private Sub CLASS_Initialize() Set m_Form New Form1 Load m_Form Set m_Timer m_FormTimer1 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．测试NewTimerDLL ActiveX DLL部件进行测试标准EXE程序样分单步运行全运行
写完程序代码建议户先Ctrl F5进行全编译执行发现检查NewTimer程序语法错误
建立测试工程NewTimer链接进行测试针NewTimer类模块提供属性事件添加测试代码测试属性方法
F8进入单步运行状态逐语句察NewTimer类模块调情况
3．编译NewTimerDLL 完成测试排错误文件（F）菜单中选择生成NewTimerdll（K)命令编译生成NewTimerdll文件
编译成功NewTimerdll文件动注册Windows注册表中 4．引NewTimerDLL 引ActiveX DLL部件引象样工程（P）菜单中选择引（N）命令开引窗口引列表中选中NewTimer象
果第次引NewTimer引窗体单击游览（B）命令钮NewTimerDLL文件添加引列表框中方
5．调NewTimerDLL 应程序中加入述程序代码实现参NewTimerdll调： Option Explicit Dim WithEvents LongTimer1 As LongTimer Private Sub LongTimer1_Tick() Print 时间处添加处理程序 End Sub Private Sub Command1_Click() LongTimer1Interval 12000 两分钟 LongTimer1Enabled True End Sub Private Sub Form_Load() Set LongTimer1 New LongTimer End Sub 参考文献 [2]东箭工作室Visual Basic50中文版程序设计清华学出版社1997 [3]Evangelos Petroutsos Visual Basic5入门精通北京：电子工业出版社1997 作者简介：李湘江男工程师事网络CADCAI软件工程方面应研究
作者单位：长沙交通学院信息计算科学系 长沙410076 电话：07315219487（办） Email：lxjzy@263net
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
VB中创建超长时间计时器象 发布时间： 20040410 作者： （长沙交通学院 信息计算科学系 长沙410076） 作者：李湘江 邹筱梅 摘 ：文介绍VB程序中Timer控件创建超长时间计时器象编译成ActiveX DLL部件利代码重性应程序中调
关键词：Vb 计时器 象 VB系统中提供固计时器Timer控件通计时器控件Interval属性设置数值控制计时器运行时间间隔该属性双字节整型变量值设置6553565535毫秒约分钟点需长时间计时时该控件力
文出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_TimerEnabled End Property 设置Enable属性值 Public Property Let Enabled(ByVal vNewValue As Boolean) m_TimerEnabled vNewValue End Property 返回Interval属性值 Public Property Get Interval() As Long Interval m_TimerInterval End Property 设置Interval属性值 Public Property Let Interval(ByVal vNewValue As Long) cs 0 nz vNewValue ＼ 65536 1 m_TimerInterval vNewValue ＼ nz End Property 类初始化事件 Private Sub CLASS_Initialize() Set m_Form New Form1 Load m_Form Set m_Timer m_FormTimer1 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．测试NewTimerDLL ActiveX DLL部件进行测试标准EXE程序样分单步运行全运行
写完程序代码建议户先Ctrl F5进行全编译执行发现检查NewTimer程序语法错误
建立测试工程NewTimer链接进行测试针NewTimer类模块提供属性事件添加测试代码测试属性方法
F8进入单步运行状态逐语句察NewTimer类模块调情况
3．编译NewTimerDLL 完成测试排错误文件（F）菜单中选择生成NewTimerdll（K)命令编译生成NewTimerdll文件
编译成功NewTimerdll文件动注册Windows注册表中 4．引NewTimerDLL 引ActiveX DLL部件引象样工程（P）菜单中选择引（N）命令开引窗口引列表中选中NewTimer象
果第次引NewTimer引窗体单击游览（B）命令钮NewTimerDLL文件添加引列表框中方
5．调NewTimerDLL 应程序中加入述程序代码实现参NewTimerdll调： Option Explicit Dim WithEvents LongTimer1 As LongTimer Private Sub LongTimer1_Tick() Print 时间处添加处理程序 End Sub Private Sub Command1_Click() LongTimer1Interval 12000 两分钟 LongTimer1Enabled True End Sub Private Sub Form_Load() Set LongTimer1 New LongTimer End Sub 参考文献 [2]东箭工作室Visual Basic50中文版程序设计清华学出版社1997 [3]Evangelos Petroutsos Visual Basic5入门精通北京：电子工业出版社1997 作者简介：李湘江男工程师事网络CADCAI软件工程方面应研究
作者单位：长沙交通学院信息计算科学系 长沙410076 电话：07315219487（办） Email：lxjzy@263net
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
