巧用VB模拟倒计时器

２Ｏ１０年４月　电　脑　学　习　第２期　

巧用ＶＢ模拟倒计时器　

王瑜’　

摘　要：利用ＶＢ软件中计时器控件以及其他控件开发出可蔓夏使用的倒计时软件．并给出相应的源程序。　

关键词：ＶＢ　倒计时器　

中图分类号：ＴＰ３１１．１　文献标识码：　Ａ　文章编号：１００２－２４２２（２０１０）０２—００６３－０３　

Ｕｓｉｎ２ⅦｔＯ　Ｓｉｍｕｌａｔｅ　Ｃｏｕｎｔｄｏｗｎ　ｍｅｒ　

Ｗａｎｇ　Ｙｕ　

Ａｂｓｔｒａｃｔ：Ｔｈｅ　ｐａｐｅｒ　ｕｓｅｓ　ｔｉｍｅｒ　ｃｏｎｔｒｏｌｓ　ａｎｄ　ｏｔｈｅｒ　ｃｏｎｔｒｏｌｓ　ｉｎ　ＶＢ　ｓｏｆｔｗａｒｅ　ｔｏ　ｄｅｖｅｌｏｐ　ｒｅｕｓａｂｌｅ　ｃｏｕｎｔｄｏｗｎ　ｓｏｆｔｗａｒｅ，ａｎｄ　Ｓｌｖｅｓ　

ｔｈｅ　ｃｏｒｒｅｓｐｏｎｄｉｎｇ　ｓｏｕｒｃｅ　ｃｏｄｅ．　

Ｋｅｙｗｏｒｄ：ＶＢ　Ｃｏｕｎｔｄｏｗｎ　Ｔｉｍｅｒ　

１倒计时器界面及各控件属性设置　

显示所有内容；同时，为了使时间显示后颜色有所变化，也　

用ＶＢ中各控件设计演讲赛界面，包括２个图片框控　

可将Ｆｏｒｅｃｏｌｏｒ属性设置为桔红色。而对于ｌａｂｅｌ２和ｌａｂｅｌ３　

件、３个标签控件、１个计时器控件和３个多媒体控件。单击　

控件，因为其功能只是为了能在单击以后控制不同的时间，　

图标上半部为４分钟倒计时，下半部为３分钟倒计时，单击　

故在拖出后，除需将Ｃａｐｔｉｏｎ属性中内容清空以外，只需将　

图片其它位置则时间停止，单击文字则程序退出，程序运行　

其放至ｉｍａｇｅ１控件上合适位置，而不需做其它属性更改。　

时，界面如图１所示。　

１．３　ｔｉｍｅｒｌ计时器控件、ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒｌ、Ｗｉｎｄｏｗｓ—　

ＭｅｄｉａＰｌａｙｅｒ２、ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ３多媒体控件的用法及属　

纛羼赣通落最暴太蹇　

性设置　

在程序运行期间，计时器控件是不可见的，只在设计状　

００：０４：００　

态下才可见。ｔｍｉｅｒｌ控件主要实现倒计时功能，在设计状态　

下其属性不做修改。３个多媒体控件主要用于控制声音，其　

中ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒｌ控件控制在最后３Ｏ秒时发出一声　

图１　

警报，ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ２控件控制最后３Ｏ秒至时间结束　

１．１窗体控件、ｉｍａｇｅ１、ｉｍａｇｅ２图片框控件的用法及属性设　

期问钟表读秒声音，ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ３控件控制在时间　

置　

结束时发出一声结束音。这三个控件在设计状态下，均需将　

程序在运行后，要求不能出现ＶＢ窗体界面，所以，选　

其ｖｉｓｉｂｌｅ属性设置为“Ｆａｌｓｅ”，表示在程序运行过程中是不　

中窗体后，首先将Ｂｏｒｄｅｒｓｔｙｌｅ属性设置为“０一ｎｏｎｅ”，指定　

可见的。　

窗体没有边框样式。同时，程序中使用的２个图片框主要用　

２功能实现代码　

来显示演讲赛图标及文字，所以首先要在Ｐｈｏｔｏｓｈｏｐ中将图　

为实现该倒时计功能，需要设计并输入相应对象相应　

标和文字处理成图片，然后在窗体的适当位置拖出２个图　

事件或过程的程序代码。方法是：在设计状态，双击相应控　

片框，分别将其加载进来。其中，ｉｍａｇｅｌ控件中存放图标，　件，在弹出的“对象～过程”编辑窗口选择相应的过程，并　

ｉｍａｇｅ２控件中存放文字，要注意的是，经Ｐｈｏｔｏｓｈｏｐ中处理　

输入相应的ＶＢ程序代码。　

后的图片，一定要保存为ＢＭＰ格式，否则在程序中将不能　

２．１通用声明及倒计时功能函数　

正常显示。图片加载之后，要不断运行程序查看实际效果，　

在程序中需要有一批变量或常量的定义，可事先在通　

经反复调整之后，确定图片显示的最佳位置。　

用声明中完成，代码如下：　

１．２　Ｌａｂｅｌ１、ｌａｂｅｌ２、ｌａｂｅｌ３标签控件的用法及属性设置　

Ｏｐｔｉｏｎ＆　ｃｉｔ　显示声明　

在该倒计时器中，ｌａｂｅｌ１控件主要用来显示倒计时时　

Ｐｒｉｖａｔｅ　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＧｅｔＷｉｎｄｏｗＬｏｎｇ　Ｌｉｂ　ｕｓｏｒ３２　Ａｌｉａｓ　

间，ｌａｂｅｌ２和ｌａｂｅｌ３控件分别用来控制图标上下两个部分。　

ＧｅｔＷｉｎｄｏｗＬｏｎｇＡ　（ＢｙＶａｌ　ｈｗｎｄ　Ａｓ　Ｌｏｎｇ，　ＢｙＶａｌ　ｎ／ｎｄｅｘ　Ａｓ　

在设计状态下，选中ｌａｂｅｌｌ控件后，将Ａｌｉｇｎｍｅｎｔ属性设置　

Ｌｏｎｇ）Ａｓ　Ｌｏｎｇ　

Ｐｒｉｖａｔｅ　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳｅｔＷｉｎｄｏｗＬｏｎｇ　Ｌｉｂ　ｕｓｅｒ３２　Ａｌｉａｓ　

为“２－ｃｅｎｔｅｒ”，表示该标签中文本对齐方式为居中对齐；将　

ＳｅｔＷｉｎｄｏｗＬｏｎｇＡ　（ＢｙＶａｌ　ｈｗｎｄ　Ａｓ　ｂＩ１ｇ，ＢｙＶａｌ　ｎｌｎｄｅｘ　Ａｓ　Ｌｏｎｇ，　

Ａｕｔｏｓｉｚｅ属性设置为“ｔｒｕｅ”，表示该标签将自动调整大小以　

ＢｙＶａｌ　ｄｗＮｅｗＬｏｎｇ　Ａｓ　Ｌｏｎｇ）Ａｓ　Ｌｏｎｇ　

收稿日期：２０１０一Ｏｌ一１９　

王瑜郧阳师范高等专科学校计算机科学系讲师（湖北，丹江口４４２７００）。　

・　６３　・　

Ｐｒｉｖａｔｅ　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳｅｔＬａｙｅｒｅｄＷｉｎｄｏｗＡｔｔｒｌｂｕｔｅｓ　Ｌｉｂ　ｕｓｅｒ３２　

（ＢｙＶａｌ　ｈｗｎｄ　Ａｓ　Ｌｏ％ＢｙＶａｌ　ｃｒＫｅｙ　Ａｓ　Ｌｏｎｇ，ＢｙＶａｌ　ｐｌ１ａ　Ａｓ　

ＬＷ　Ｃ０Ｌ０ＲＫＥＹ　窗体始终悬浮各窗口之上　

多媒体控件关闭　ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒＩ．Ｃｌｏｓｅ　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ２．Ｃｌｏｓｅ　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ３．Ｃｌｏｓｅ　

Ｅｎｄ　Ｓｕｂ　

Ｂｙｔｅ，ＢｙＶａｌ　ｄｗＦｌａｇｓ　Ａｓ　Ｌｏｎｇ）Ａｓ　Ｌｏｎｇ　

Ｐｒｉｖａｔｅ　Ｃｏａｓｔ　ＷＳ

ＥＸＬＡＹＥＲＥＤ＝＆Ｈ８００００　

＿＿

Ｐｒｉｖａｔｅ　Ｃｏａｓｔ　ＧＷＩＪ　ｓ１＿ＹＬＥ＝（－２０）　

Ｐｒｉｖａｔｅ　Ｃｏｎａｔ　ＬＷＡＡＬＰＨＡ＝＆Ｈ２　

＿

２．３计时器的ｔｉｍｅｒ过程及代码　

Ｐｒｉｖａｔｅ　Ｃｏｎｓｔ　ＬＷ　ＯＬＯＲＫＥＹ＝＆ＨＩ　

一

计时器控件代码部分完成的功能是整个倒计时的核　

ＢｙＶａｌ　

＿

Ｐｒｉｖａｔｅ　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳｅｔＷｉｎｄｏｗＰｏｓ　Ｌｉｂ”ｕｓｅｒ３２”　（

ｈｖｍｄ　Ａｓ　Ｌｏｎｇ，

＿

ＢｙＶａｌ　ｈＷｎｄｌｎｓｅｒｔＡｆｔｅｒ　Ａｓ　Ｌｏｎｇ。

ＢｙＶａｌ　Ｘ　Ａｓ　

心，在程序运行之后，不管单击ｉｍａｇｅ１控件的上半部还是　

下半部，时间都会自动开始倒计时，其代码如下：　

Ｌｏｎｇ，ＢｙＶａｌ　Ｙ　Ａｓ　ｎｇ，ＢｙＶａｌ　ｃｘ　Ａｓ　Ｌ０ｎｇ，ＢｙＶａｌ　ｃｙ　Ａｓ　Ｌｏｎｇ，　

一

一

ＢｙＶａｌ　ｗＦｌａｇｓ　Ａｓ　Ｌｏｎｇ

一

）Ａｓ　Ｌｏｎｇ　调用ＡＰＩ函数设置窗体　

透明　

Ｃｏｎｓｔ　ＨＷＮＤ

＿

ＴＯＰＭＯＳＴ＝一１　

Ｃｏｎｓｔ　Ｓ　ＳＨＯＷＭＮＤＯＷ＝＆Ｈ４０　

Ｄｉｍ　ｓｓ，ｔｒｉｍ，ｈｈ　Ａｓ　Ｉｎｔｅｇｅｒ　设置倒计时变量　

除上述变量声明外，倒计时功能编写子过程，过程名　

为：ｈｍｓｔｏｓｔｒｉｎｇ，相应代码如下：　

Ｐｒｉｖａｔｅ　Ｆｕｎｃｔｉｏｎ　ｈｍｓｔｏｓｔｒｉｎｇ（ＢｙＶａｌ　ｈ　Ａｓ　Ｉｎｔｅｇｅｒ，　ＢｙＶａｌ　ｍ　Ａｓ　

Ｉｎｔｅｇｅｒ，ＢｙＶａｌ　ｓ　Ａｓ　Ｉｎｔｅｇｅｒ）Ａｓ　Ｓｔｒｉｎｇ　

Ｄｉｍ　ｈｈｓ，ｎｌｎｌ８，８８８　Ａｓ　Ｓｔｉｒｎｇ　

Ｉｆ　ｈ＜ｌＯ　１１１ｅｎ　

ｈｈｓ＝　＋Ｔｒｉｍ（Ｓｔｒ（ｈ））　

倒计时小时显示内容　

Ｅｌｓｅ　

ｈｈｓ＝Ｔｒｉｍ（Ｓｔｒ（ｈ））　

Ｅｎｄ　Ｉｆ　

Ｉｆ　ｍ＜１０　Ｔｈｅｎ　

ａｒｍｓ＝　＋Ｔｒｉｍ（Ｓｔｒ（ｍ））　

倒计时分钟显示内容　

Ｅｌｓｅ　

ｎｌｎｌｓ＝Ｔｒｉｍ（Ｓｔｒ（ｍ））　

Ｅｎｄ　Ｉｆ　

ｆＩ　ｓ＜１０　Ｔｈｅｎ　

８８８＝　０　＋Ｔｒｉｍ（Ｓｔｒ（８））　

倒计时秒钟显示内容　

Ｅｌｓｅ　

８８８＝Ｔｒｉｍ（Ｓｔｒ（ｓ））　

Ｅｎｄ　Ｉｆ　

ｈｍｓｔｏｓｔｉｒｎｇ　ｈｈｓ＋　：　＋ｍｍ８＋　：”＋８８８　倒计时时间显示　

格式　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

２．２窗体的ｌｏａｄ过程及代码　

在程序运行后，需将窗体放至屏幕上固定位置，并且要　

求能始终悬浮其它各窗口之上。同时要求多媒体控件处于　

关闭状态，代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ

＿

ｌｏａｄ（）　

Ｄｉｍ　ｒｅｔＶａｌｕｅ　Ａｓ　Ｌｏｎｇ　

ｒｅｔＶａｌｕｅ＝￥ｅｔＷｉｎｄｏｗＰｏｓ（Ｍｅ．ｈｗｎｄ．ＨＷＮＤ

＿

ＴＯＰＭＯＳＴ，Ｍｅ．Ｃｕｒ－　

ｒｅｎｔＸ，Ｍｅ．ＣｕｒｒｅｎｔＹ，９００，６５０，ＳＷＰ

＿

ＳＨＯＷＷＩＮＤＯＷ）　设置窗　

体在屏幕上的位置　

Ｄｉｍ　ｒｔｎ　Ａｓ　Ｌｏｎｇ　

ｔｉｎ＝ＧｅｔＷｉｎｄｏｗＬｏｎｇ（ｈｗｎｄ．ＧＷＬ

＿

ＥＸＳＴＹＬＥ）　

ｒｔｎ＝ｒｔｎ　Ｏｒ　ＷＳ

＿

Ｅｘ＿ＬＡＹＥＲＥＤ　

ＳｅｔＷｉｎｄｏｗＬｏｎｇ　ｈｗｎｄ，ＧＷＬ　ＥＸＳＴＹＬＥ，ｒｔｎ　

ＳｅｔＬａｙｅｒｅｄＷｉｎｄｏｗＡｔｔｒｉｂｕｔｅｓ　ｈｗｎｄ，ＲＧＢ（２５５，２５５，２５５），１００，　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｉｍｅｒｌ

＿

Ｔｉｍｅｔ（）　

ｆＩ　ｓｓ＜１　Ｔｈｅｎ　

Ｉｆ　ｍｍ＜１　Ｔｈｅｎ　

Ｉｆ　ｈｈ＜１　Ｔｈｅｎ　

Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝０　

１．ａｂｅｌ１．Ｃａｐｔｉｏｎ＝　时间到ｌ　若时间结束，则显示时间到　

Ｉｍａｇｅ３．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ３．ＵＲＬ＝ＶＢ．Ａｐｐ．Ｐａｔｈ＆　、３．ｗａｙｔｔ　加载结　

束音　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ３．ｅｓｔｔｉｎｇｓ．ｐｌａｙＣｏｕｎｔ＝１　播放次数为１　

Ｅｘｉｔ　Ｓｕｂ　

Ｅｌｅｓ　

ｈｈ＝ｈｈ一１　

ｎｎｎ＝５９　

ｓｓ＝５９　

Ｅｎｄ　Ｉｆ　

Ｅｌｓｅ　

ｉｎｎｌ＝ａｌｆｌ—ｌ　

ｓｓ＝５９　

Ｅｎｄ　Ｉｆ　

Ｅｌｅｓ　

ｓｓ＝ｓｓ—ｌ　

ｆＩ　ｓｓ＝３０　Ａｎｄ　Ｉｎ工ｎ＜ｌ　Ａｎｄ　ｈｈ＜ｌ　Ｔｈｅｎ　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒＩ．ＵＲＬ＝ＶＢ．Ａｐｐ．Ｐａｔｈ＆　１．ｗａｙ＂　最后３Ｏ　

秒发出警告音　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ１．ｅｓｔｔｉｎｇｓ．ｐｌａｙＣｏｕｎｔ＝１　播放次数为ｌ　

ＥｎｄⅡ　

Ｉｆ　ｓｓ＜＝１０　Ａｎｄ　ｍｉｌｌ＜ｌ　Ａｎｄ　ｈｈ＜ｌ　Ｔｈｅｎ　

Ｉｍａｇｅ３．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ２．Ｃｏｎｔｒｏｌｓ．ＰｌＨｙ　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ２．ＵＲＬ＝ＶＢ．Ａｐｐ．Ｐａｔｈ＆”ｋ２．ａｒｐ３　最后３Ｏ　

秒至结束读秒　

Ｉｆ　ｓｓ＝０　Ａｎｄ　ｌｍ＝０　Ａｎｄ　ｈｈ＝０　Ｔｈｅｎ　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ２．Ｃｌｏｓｅ　当时问结束时，读秒音结束　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｉｆ　

Ｌａｂｅｌｌ。Ｃａｐｔｉｏｎ＝ｈｍｓｔｏｓｔｒｉｎｇ（ｈｈ，ｒａｍ，ｓｓ）　调用倒计时函数完成　

时间显示　

Ｅｎｄ　Ｓｕｂ　

２．４标签的ｃｌｉｃｋ事件及代码　

在ｉｍａｇｅｌ图片框的上下两个部分，分别放了两个标签，　

用于控制不同的倒计时时间，其代码如下：　

２０１Ｏ弃４月　电　脑　学　习　第２期　

Ｃ语　

言函　数参数的求值顺序　

及可　

变参数函数的设计方法　

樊益民‘　黄南川　

摘　要：详细介绍了ｃ语言函数参数的求值顺序及可变参数函数的设计方法。　

关键词：函教　求值顺序　可变参数　

中图分类号：ＴＰ３１１　文献标识码：　Ａ　文章编号：１００２—２４２２（２０１０）０２—００６５－０２　

Ｏｒｄｅｒ　ｏｆ　Ｅｖａｌｕａｔｉｏｎ　ｏｆ　Ｆｕｎｃｔｉｏｎ　Ｐａｒａｍｅｔｅｒｓ　ａｎｄ　

Ｄｅｓｉｇｎ　Ｍｅｔｈｏｄ　ｏｆ　Ｖａｒｉａｂｌｅ　Ａｒｇｕｍｅｎｔ　Ｆｕｎｃｔｉｏｎ　ｉｎ　Ｃ　Ｌａｎｇｕａｇｅ　

Ｆａｎ　Ｙｉｍｉｎ　Ｈｕａｎｇ　Ｎａｎｃｈｕａｎ　

ａｂｏｒａｔｅｓ　ｉｎ　ｄｅｔａｉｌ　ｏｒｄｅｒ　ｏｆ　ｅｖａｌｕａｔｉｏｎ　ｏｆ　ｆｕｎｃｔｉｏｎ　ｐａｒａｍｅｔｅｒｓ，ａｎｄ　ｐｒｅｓｅｎｔｓ　ｄｅｓｉｇｎ　ｍｅｔｈｏｄ　ｏｆ　ｖａｒｉａｂｌｅ　ａｔ－　

Ａｂｓｔｒａｃｔ：　

Ｔｈｅ　ｐａｐｅｒ　ｅｌ

ｇｕｍｅｎｔ　ｆｕｎｃｔｉｏｎ　ｉｎ　Ｃ　ｌａｎｇｕａｇｅ．　

Ｋｅｙｗｏｒｄ：　

Ｆｕｎｃｔｉｏｎ　Ｏｒｄｅｒ　ｏｆ　Ｅｖａｌｕａｔｉｏｎ　Ｖａｒｉａｂｌｅ　Ａｒｇｕｍｅｎｔ　Ｆｕｎｃｔｉｏｎ　

１问题的提出　

Ｃ语言函数参数的求值顺序及可变参数函数的设计方　

法在一般的教课书上很少提及，但此方法在实际应用中却　

经常碰到。设计参数数目可变的Ｃ语言函数方法，将有助于　

初学Ｃ语言的人及Ｃ语言业余爱好者掌握和应用。　

３设计变参数函数所需模式说明　

ｒｕｎｅ（ｔｙｐｅ　ａｒｍ，ｔｙｐｅ　ａｒａ２…．）　

｛　

＋・　第一步：定义指向可变参数列表的指针　・　

ｖａ

＿

ｌｉｓｔ　ａｐ；　

・　第二步：取得第一个可变参数的指针　

ｖａ

２　Ｃ语言函数参数的求值顺序　

Ｃ语言函数在调用时实参的求值顺序为自右向左而非　

想当然的自左向右顺序，这在一般情况下不会引起误会，但　

在某些情况下就会引起误解，看下面实例：　

ｉｎｔ　ｉ＝１：　

ｓｔａｒｔ（ａｐ，ａｒａ２）；　一定要”…　之前的那个参数　

十　｝第三步：逐个取出可变参数的值々・　

＿

＿

ｔｙｐｅ　ｖａｌ＝ｖａ

ａｒｇ（ａｐ，ｔｙｐｅ）；　

／脏意：参数类型ｔｙｐｅ一定要相同，即：ｃｈａｒ　Ｐ＝ｖａ．＿ａｒｇ（叩，　

ｃｈａｒ｝）：　

／Ａｎｔ　ｉ＝ｖａ＿ａｒｇ（ａｐ’ｉｎｔ）；　

ｐｒｉｎｔｆ（　％ｄ％ｄ％ｄ＼ｎ”，ｉ，＋＋ｉ，＋＋ｉ）；　

／／ｔｚ果有多个参数继续调用ｖａ　ａｒｇ　

＋　＋第四步：结束调用　｛　

实际的输出结果是：２，３，３而非１，２，３　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｌａｂｅｌ２　Ｃｌｉｃｋ（）　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ２．Ｃｌｏｓｅ　

Ｉｍａｇｅ３．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

Ｔｉｍｅｒ１．Ｅｎａｂｌｏｄ＝　ｓｅ　

ｓｓ＝０　

Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＝ｈｍｓｔｓｔｒｏｉｎｇ（ｈｈ。ｍｍ，ｓｓ）　

时问显示　

Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝１０００　

调用倒计时函数完成　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　Ｅｎｄ　Ｓｕｂ　

ｈｈ＝Ｉｎｔ（４／６０）　

ｉｎｌｎ＝４一ｈｈ　

ＳＳ＝０　

３结束语　

利于ＶＢ编写倒计时程序的设计与实现是以科学的设　

调用倒计时函数完　

６０　

Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＝ｈｍｓｔｓｔｏｒｉｎｇ（ｈｈ。ｎｕｎ，ｓｓ）　

成时间显示　

Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝１Ｏｏｏ　

Ｅｎｄ　Ｓｕｂ　

计为基础，以合理的设计思想为指导，以必要的程序设计语　

言为工具，基本上满足了用户的需要，最大的特点是界面精　

美，窗体透明，且可悬浮于其它各窗口之上。　

参考文献　

＿

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＬａｂｅＤ

Ｃｌｉｃｋ（）　０分钟倒计时　

川１胡晓娟，王兰．利用ＶＢ实现可重复使用的倒计时器忉．新疆：新　

疆师范大学学报（自然科学版），２００７（９）．　

ＷｉｎｄｏｗｓＭｅｄｉａＰｌａｙｅｒ２．Ｃｌｏｓｅ　

Ｉｍａｇｅ３．Ｖｉｓｉｂｌｅ＝ｎｄｓｅ　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

【２】赵万龙，编著．Ｖｉｓｕａｌ　Ｂａｓｉｃ程序设计【Ｍ】．北京：中国铁道出版　

社，２００６．　‘　

Ｔｉｍｅｄ．Ｅｎａｂｌｅｄ＝Ｔｍｅ　

ｈｈ＝Ｉｎｔ（３／６Ｏ）　

ｒｎｍ＝３一ｈｈ・６０　

【３刘瑞新，李树东，万朝阳，编著．Ｖｉ３】ｓｕａｌ　Ｂａｓｉｃ程序设计教程【Ｍ】．　

北京：电子工业出版社，２００１．　

收稿日期：２０１０—０１—２２　

￥樊益民河北工业大学廊坊分校副教授（河北，廊坊０６５０００）。　

・　

６５　・