admin 管理员组文章数量: 1184232
2024年3月27日发(作者：大学教材下载网站pdf)
维普资讯
第２０卷第２期
商洛师范专科学校学报
Ｊｏｕｒｎａｌ ｏｆ Ｓｈａｎｇｌｕｏ Ｔｅａｃｈｅｒｓ ＣｏＨｅｇｅ
Ｖ０１＿２０ Ｎｏ．２
２００６年６月
Ｊｕｎｅ ２Ｏ０６
ＶＢ中Ｔｉｍｅｒ控件的Ｉｎｔｅｒｖａｌ属性修改
李彦广
（商洛学院计算机科学系，陕西商洛７２６０００）
摘要：如何在ＶＢ程序中用Ｔｉｍｅｒ控件创建一个超长时问的计时器对象，将其编译成
ＡｃｄｖｅＸ ＤＬＬ部件，利用代码的可重用性，在其它应用程序中调用非常重要．
关键词：ＶＢ；计时器；对象；ＡｃｔｉｖｅＸ ＤＬＬ部件
中图分类号：ＴＰ３１１．５３ 文献标识码：Ａ 文章编号：１００８－３０３０（２００６）０２－４１０３２—０２
ＶＢ中提供了固有计时器Ｔｉｍｅｒ控件，通过给
计时器控件的Ｉｎｔｅｒｖａｌ属性设置不同的数值，就
可以控制计时器运行的时间间隔，但该属性是一
个双字节的整型变量，最大值只能设置为６５５３５，
即只有６５５３５毫秒，约一分钟多一点，在需要长时
间计时时，该控件就无能为力了．如何用Ｔｉｍｅｒ控
件创建一个超长时间的计时器对象，并将其编译
成ＡｃｔｉｖｅＸ ＤＬＬ部件，供其它应用程序调用，可实
现最大限度地利用代码的可重用性就非常重要．
ｏｎｇＴｉｔｍｅｒ类模块，加入如下程序代码：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｕｂｌｉｃ Ｅｖｅｎｔ Ｔｉｃｋ（）
Ｐｒｉｖａｔｅ ｎｚ Ａｓ Ｉｎｔｅｇｅｒ
Ｐｒｉｖａｔｅ ＣＳ Ａｓ Ｉｎｔｅｇｅｒ
声明事件
Ｐｒｉｖａｔｅ ｍ Ｆｏｒｍ Ａｓ Ｆｏｒｍ１
Ｐｒｉｖａｔｅ ＷｉｔｈＥｖｅｎｔｓ ｒｒＩＪｉｍｅｒ Ａｓ Ｔｉｍｅｒ 声
明对象类变量
返回Ｅｎａｂｌｅ属性值
１ Ｔｉｍｅｒ控件ＩｎｔｅｒｖａＩ属性使用与取值
１．１将Ｔｉｍｅｒ控件做如下设置：
Ｔｉｍｅｒ．ｅｎａｂｌｅｄ＝ｔｒｕｅ
ｕｂｌＰｉｃ Ｐｒｏｐｅｒｔｙ Ｇｅｔ Ｅｎａｂｌｅｄ（）Ａｓ Ｂｏｏｌｅａｎ
Ｅｎａｂｌｅｄ＝ｒＩｌＪｉｍｅｒ．Ｅｎａｂｌｅｄ
Ｅｎｄ Ｐｒｏｐｅｒｔｙ
ｔｉｍｅｒ．ｉｎｔｅｒｖａｌ＝１０００／这是１秒钟激发一次
ｔｉｍｅｒ
ｔｉｃｋ事件
＿
设置Ｅｎａｂｌｅ属性值
Ｐｕｂｌｉｃ Ｐｒｏｐｅｒｔｙ Ｌｅｔ Ｅｎａｂｌｅｄ（ＢｙＶａｌ ｖＮｅｗＶａｌｕｅ
ｔｉｍｅｒ
ｔｉｃｋ事件中把你要实现的东西写进去，
＿
Ａｓ Ｂｏｏｌｅａｎ）
ｒｒＩＪｉｍｅｒ．Ｅｎａｂｌｅｄ＝ｖＮｅｗＶａｌＨｅ
Ｅｎｄ Ｐｒｏｐｅｒｔｙ
可以在ｔｉｍｅｒ＿ｔｉｃｋ中判断分钟或者小时比如你想
１０分钟执行一次，可以把ｎｏｗ的时间付给个变
量然后％１０为０，就可以在条件为真时就可以了．
１．２ Ｉｎｔｅｒｖａｌ属性的取值范围
返回Ｉｎｔｅｒｖａｌ属性值
Ｐｕｂｌｉｃ Ｐｒｏｐｅｒｔｙ Ｇｅｔ Ｉｎｔｅｒｖａｌ（）Ａｓ ｎｇ
Ｉｎｔｅｒｖａｌ＝ｍＴｉｍｅｒ．Ｉｎｔｅｒｖａｌ
＿
Ｉｎｔｅｒｖａｌ属性的有效值在０至６５５３５之间，这就
意味着即使最长时间间隔也只是６５．６秒，比一分
钟长不了多少，而且ＶＢ只有在Ｉｎｔｅｒｖｌ属性值大于 ａ
０时，才会产生Ｔｕｎｅｒ事件，这是要特别注意的地方．
Ｅｎｄ Ｐｒｏｐｅｒｔｙ
设置Ｉｎｔｅｒｖａｌ属性值
Ｐｕｂｌｉｃ Ｐｒｏｐｅｒｔｙ Ｌｅｔ Ｉｎｔｅｒｖａｌ（ＢｙＶａｌ ｖＮｅｗＶａｌｕｅ
ｓ ｔｏｎｓ）Ａ
ｃｓ＝０
２编写程序
启动ＶＢ，新建一个ＡｃｔｉｖｅＸ ＤＬＬ工程，将工
程命名为ＮｅｗＴｉｍｅｒ，将类模块名Ｃｌａｓｓｌ改名为
Ｌｏｎｇ＇［＂ｉｍｅｒ．在工程中添加一个窗体Ｆｏｒｍ１，在窗体
上加入一个Ｔｉｍｅｒ计时器控件Ｔｉｍｅｒ１．打开
收稿日期：２０ｏ６－＿０３—０５
ｎｚ＝ｖＮｅｗＶａｌｕｅ＼６５５３６＋ｌ
ｒｒＩＪｉｍｅｒ．Ｉｎｔｅｒｖａｌ＝ｖＮｅｗＶａｌｕｅｋｎｚ
Ｅｎｄ Ｐｒｏｐｅｒｔｙ
作者简介：李彦广（１９７８－），男，陕西镇安人，商洛学院计算机科学系助教
维普资讯
第２期 李 华，刘雅莉：ＭＡＴＬＡＢ在大学电子类课程教学中的应用 ３３
类初始化事件
Ｐｒｉｖａｔｅ Ｓｕｂ ＣＩＡＳＳ
＿
Ｉｎｉｔｉａｌｉｚｅ（）
Ｓｅｔ ｍ
＿
Ｆｏｒｍ＝Ｎｅｗ—－Ｆｏｒｍ ｌ
Ｌｏａｄ ｍ Ｆｏｒｍ
ＳｅｔⅡＩ＿Ｔｉｍｅｒ－＝ｍ＿Ｆｏｒｍ．Ｔｉｍｅｒｌ
Ｅｎｄ Ｓｕｂ
类终止事件
Ｐｒｉｖａｔｅ Ｓｕｂ ＣＩＡＳＳＪ’ｅｒｍｉｎａｔｅ（）
Ｕｎｌｏａｄ ｍ Ｆｏｒｍ
Ｓｅｔ ｍ
＿
Ｔｉｍｅｒ＝Ｎｏｔｈｉｎｇ
Ｅｎｄ Ｓｕｂ
产生Ｔｉｃｋ事件
Ｐｒｉｖａｔｅ Ｓｕｂ ｎＬＴｉｍｅＬＴｉｍｅｒ（）
ＣＳ：ＣＳ￣１
Ｉｆ ｃｓ＞＝ｎｚ Ｔｈｅｎ
ＲａｉｓｅＥｖｅｎｔ Ｔｉｃｋ
ｃｓ＝０
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
窗体Ｆｏｒｍ１只用来作计时器Ｔｉｍｅｒｌ的载体，
不用于显示．
３测试和编译ＮｅｗＴｉｍｅｒ．ＤＬＬ
３．１测试ＮｅｗＴｉｍｅｒ．ＤＬＬ
对ＡｃｆｉｖｅＸ ＤＬＬ部件进行测试，与标准的ＥＸＥ
程序一样，可分为单步运行或全运行．在写完所有
程序代码后，建议用户先用Ｃｔｒｌ＋Ｆ５进行全编译执
行，发现检查ＮｅｗＴｉｍｅｒ程序的语法错误．也可建
立一个测试工程与ＮｅｗＴｉｍｅｒ链接进行测试，针
对由ＮｅｗＴｉｍｅｒ类模块提供的每个属性和事件，
添加测试代码来测试它们的属性和方法．按Ｆ８，进
入单步运行状态，逐个语句察看对ＮｅｗＴｉｍｅｒ类模
块的调用情况．
３．２编译ＮｅｗＴｉｍｅｒ．ＤＬＬ
完成测试，排除所有错误后，从“文件（Ｆ）”菜
单中选择“生成ＮｅｗＴｉｍｅｒ．ａｌｌ（Ｋ）”命令，编译生成
ＮｅｗＴｉｍｅｒ．ｄｌｌ文件．编译成功后ＮｅｗＴｉｍｅｒ．ｄｌｌ文件
将自动注册到Ｗｉｎｄｏｗｓ注册表中．
４引用和调用ＮｅｗＴｉｍｅｒ．ＤＬＬ
４．１引用ＮｅｗＴｉｍｅｒ．ＤＬＬ
引用ＡｃｔｉｖｅＸ ＤＬＬ部件同引用其他对象一
样，从“工程（Ｐ）”菜单中选择“引用（Ｎ）”命令，打
开引用窗口，从引用列表中选中ＮｅｗＴｉｍｅｒ对象．如
果是第一次引用ＮｅｗＴｉｍｅｒ，则在引用窗体上单击
“游览（Ｂ）”命令按钮，将ＮｅｗＴｉｍｅｒ．ＤＬＬ文件添加
到可引用列表框中方可使用．
４．２调用ＮｅｗＴｉｍｅｒ．ＤＬＬ
在应用程序中加入下述程序代码，实现参
ＮｅｗＴｉｍｅｒ．ｄｌｌ的调用：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｄｉｍ ＷｉｔｈＥｖｅｎｔｓ ＬｏｎｇＴｉｍｅｒｌ Ａｓ ＬＯｎｇＴｉｍｅｒ
Ｐｒｉｖａｔｅ Ｓｕｂ ＬｏｎｇＴｉｍｅｒｌ＿Ｔｉｃｋ（）
Ｐｒｉｎｔ”时间到，此处添加处理程序”
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ ｌ Ｃｌｉｃｋｆ １
ＯＬｎｇＴｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝１２０００ 两分钟
ｏＬｎｇＴｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ
＿
Ｌｏａｄ（）
Ｓｅｔ ＬｏｎｇＴｉｍｅｒｌ＝Ｎｅｗ ＬｏｎｇＴｉｍｅｒ
Ｅｎｄ Ｓｕｂ
５应用举例
要求：每３个小时要程序扫描一下数据库
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ
＿
ｏＬａｄ（）
Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ
Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝ｌＯ０００
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｉｍｅｒｌ Ｔｉｍｅｒ（１
Ｓｔａｔｉｃ ＯｕｔＴｉｍｅ Ａｓ Ｌｏｎｇ
ＯｕｔＴｉｍｅ＝ＯｕｔＴｉｍｅ＋１
Ｉｆ ＯｕｔＴｉｍｅ＞＝ｌ ８０ Ｔｈｅｎ
ＯｕｔＴｉｍｅ＝０
你的代码
Ｄｅｂｕｇ．Ｐｒｉｎｔ Ｎｏｗ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
直接调用系统时间就好了．
程序开始运行就去系统时间．
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ
＿
ｏＬａｄ（）
ｘ＝ＮＯＷ
Ｍｅ．Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝６０００ｏ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｉｍｅｒｌ
＿
Ｔｉｍｅｒ（）
Ｉｆ ＤａｔｅＤｉｆ（＂ｈ”，ｘ，Ｎｏｗ１＞３ Ｔｈｅｎ
ｘ＝Ｎｏｗ
维普资讯
第２期 张小斌，唐养璇：商洛半夏块茎腐烂病的原因初探及防治对策 ３９
Ａ Ｐｒｅｌｉｍｉｎａｒｙ Ｓｔｕｄｙ ｏｎ Ｒｅａｓｏｎｓ ｏｆ ｓｈａｎｇｌｕｏ Ｐｉｎｅｌｌｉａ Ｓ
Ｂｌｏｃｋ Ｓｔｅｍ Ｒｏｔｔｅｎ Ｄｉｓｅａｓｅ ａｎｄ Ｐｒｅｖｅｎｔｉｎｇ Ｍｅａｓｕｒｅｓ
ＺＨＡＮＧ Ｘｉａｏ—ｂｉｎ．ＴＡＮＧ．Ｙａｎｇ—ｘｕａｎ
（Ｂｉｏｌｏｇｉｃａｌ Ｍｅｄｉｃｉｎｅ Ｅｎｇｉｎｅｅｒｉｎｇ Ｄｅｐｔ．ｏｆ Ｓｈａｎｇｌｕｏ Ｕｎｉｖｅｒｓｉｔｙ，Ｓ￣ａｎｇｌｕｏ Ｔｒａｄｉｔｉｏｎａｌ Ｃｈｉｎｅｓｅ
Ｍｅｄｉｃｉｎａｌ Ｍａｔｅｒｉｌｓ ＧＡＰ Ｐｒａｏｊｅｃｔ Ｃｅｎｔｒｅ ｏｆ Ｓｃｉｅｎｔｉｉｆｃ Ｒｅｓｅａｒｃｈ，Ｓｈａｎｇｌｕｏ，Ｓｈａａｎｘｉ，７２６０００）
Ａｂｓｔｒａｃｔ：Ｂｌｏｃｋ ｓｔｅｍ ｒｏｔｔｅｎ ｄｉｓｅａｓｅ ｈａｓ ａｌｗａｙｓ ｂｅｅｎ ｏｎｅ ｏｆ ｔｈｅ ｍａｊｏｒ ｆａｃｔｏｒｓ ａｆｆｅｃｔｉｎｇ Ｓｈａｎｇｌｕｏ
Ｐｉｎｅｌｌｉａ ｏｕｔｐｕｔ ａｎｄ ｑｕａｌｉｔｙ．Ａｓ ｔｏ ｔｈｉｓ ｐｈｅｎｏｍｅｎｏｎ。ａ ｐｒｅｌｉｍｉｎｇａｒｙ ｓｔｕｄｙ ｉｓ ｄｏｎｅ ｏｎ ｒｅａｓｏｎｓ ｆｏｒ ｉｔ ａｎｄ，
ｔｈｒｕｓｈ ｃｏｍｐａｒａｔｉｖｅ ｅｘｐｅｒｉｍｅｎｔ，ｐｒｅｖｅｎｔｉｎｇ ｍｅａｓｕｒｅｓ ａｒｅ ｔｒｉｅｄ ａｎｄ ｐｒｏｖｅｄ ｅｆｆｅｃｔｉｖｅ．
Ｋｅｙ ｗｏｒｄｓ：Ｓｈａｎｇｌｕｏ ｒｌｅ１ｌｊ Ｂｌ０ｃｋ ｓｔｅｍ ｒｏｔｔｅｎ ｓｉｃｋｎｅｓｓ；Ｒｅａｓｏｎ；Ｐｒｅｖｅｎｔｉｎｇ ａｎｄ ｃｏｎｔｒｏｌｌｉｎｇ ｃｏｕｎｔｅｒｍｅａｓｕｒｅ
（上接第３３页）
Ｐｒｉｒａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ
Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝６００００
Ｅｎｄ Ｓｕｂ
Ｔｉｍｅｒ控件是ＶＢ系统中固有的计时器，其属
性不是很多，ｉｎｔｅｒｖａｌ属性是比较常用的，通常情
况下其值是０，运行时不可见，它在动画制作、定
期执行某个操作起重要作用．
参考文献
［１】张树兵．Ｖｉｓｕａｌ Ｂａｓｉｃ６．０入门与提高 】．北京：清华大
学出版社，１９９９．
Ｐｒｉｒａｔｅ Ｓｕｂ Ｔｉｍｅｒｌ＿Ｔｉｍｅｒ（）
Ｓｔａｔｉｃ ｌｉｍｉｔｅｄＴｉｍｅ Ａｓ Ｌｏｎｇ
ｌｉｍｉｔｅｄＴｉｍｅ＝ｌｉｍｉｔｅｄＴｉｍｅ＋ｌ
Ｉｆ ｌｉｍｉｔｅｄＴｉｍｅ＞＝３０ Ｔｈｅｎ
Ｍ￣Ｓｌｔｏｘ“已经间隔了３个小时了，准
［２】ＶＢ部件工具 】．电脑报合订本，１９９７．
［３］徐松林．ＰｏｗｅｒＢｕｉｌｄｅｒ数据库应用开发教程 】．北京：清
华大学出版社。２ｏ００．
备工作！”
做你要做的事
ｌｉｍｉｔｅｄ＝０
［４】东箭工作室．Ｖｉｓｕａｌ Ｂａｓｉｃ５．０中文版程序设计 ．北京：
清华大学出版社，１９９９．
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
［５】微软公司．Ｖｉｓｕａｌ Ｂａｓｉｃ程序设计１００例［Ｍ】．北京：清华
大学出版社，１９９９．
（责任编辑：张国春）
６结束语
Ｔｈｅ Ｍｏｄｉｉｃａｔｉｆｏｎ ｏｆ Ｉｎｔｅｒｖａｌ Ｓ Ｐｒｏｐｅｒｔｙ ｏｆ Ｔｉｍｅｒ
Ｃｏｎｔｒｏｌｌｅｒ ｉｎ ＶＢ ｐｒｏｇｒａｍｍｉｎｇ
ＬＩ Ｙａｎ－ｇｕａｎｇ
（Ｃｏｍｐｕｔｅｒ Ｓｃｉｅｎｃｅ Ｄｅｐｔ．ｏｆ Ｓｈａｎｇｌｕｏ Ｕｎｉｖｅｒｓｉｔｙ，Ｓｈａｎｇｌｕｏ，Ｓｈａｍａｘｉ ７２６０００）
Ａｂｓｔｒａｃｔ：Ｈｏｗ ｔｏ ｃｒｅａｔｅ ｔｈｅ ｏｂｊｅｃｔ ｏｆ ｔｉｍｅｒ ｃｏｎｔｒｏｌｌｅｒ ｉｎ ｔｈｅ ＶＢ ｐｒｏｇｒａｍｍｉｇ，ｎｎｄ ｔａｒａｎｓｌａｔｅ ｉｔ ｉｎｔｏ
ＡｃｔｉｖｅＸ．ＤＬＬ．Ｉｔ ｉｓ ｉｍｐｏｒｔｎｔａ ｔｏ ｍａｋｅ Ｕｓｅ ｏｆ ｄｏｕｂｌｅ ａｔｔｒｉｂｕｔｅ ｃｏｄｅ ｉｎ ｏｔｈｅｒ ａｐｐｌｉｃａｔｉｏｎ ｐｒｏｇｒａｍｍｉｎｇ．
Ｋｅｙｗｏｒｄｓ：ＶＢ；Ｔｉｍｅｒ；Ｏｂｊｅｃｔ；ＡｃｔｉｖｅＸ ＤＬＬ Ｃｏｍｐｏｎｅｎｔｓ
版权声明：本文标题：VB中Timer控件的Interval属性修改 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711526781a598394.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论