VB定时器控件的应用实例与研究

审冒　憾睛锄　譬　嚣　

ＶＢ定时器控件的应用实例与研究　

◆赵俊峰　

（太原大学外语师范学院）　

【摘要】ＶＢ中的定时器控件具有灵活多变、易于控制等特点，在应用程序的开发中，利用ＶＢ定时器控件可以实现时间控制、随机控制、动　

画设计和游戏设计等制作。ＶＢ定时器控件和其他控件相结合，可以制作既灵活又实用的应用程序。　

【关键词】ＶＢ　定时器控制Ｔｉｍｅｒ　

ＶＢ中的定时器控件（Ｔｉｍｅｒ）是一个在程序运行时不可见的控件，在程　

序运行时，每隔若干时间（通过Ｉｎｔｅｒｖａｌ属性设置）执行一次Ｔｉｍｅｒ事件中的　

ｘ＝ＭｓｇＢｏｘ（”时间到ＩＩ　１１．，”提示”）　

Ｅｎｄ　Ｉｆ　

相应代码。定时器控件最核心的属性是Ｅｎａｂｌｅｄ和Ｉｎｔｅｒｖａｌ属性。利用Ｅｎ．　

ａｂｌｅｄ可以设置定时器控件是否可用，其取值只有逻辑值Ｔｒｕｅ和Ｆａｌｓｅ两　

种。利用Ｉｎｔｅｒｖａｌ属性可以设置定时器控件激活Ｔｉｍｅｒ事件的时间间隔，其　

单位为毫秒，其取值范围为０—６５５３５，当取值为０时，定时器控件不可用。　

由于定时器控件具有灵活多变、易于控制等特点。可以应用于时间控制、随　

机控制、动画制作、游戏制作等应用程序的开发中。　

一

、

时间控制　

１．整点播时器　

在实际工作中，有时需要利用计算机实现整点报时的功能，以提醒用　

户及时知晓当前时间。整点播时器的功能是：若当前系统时间为整点时　

（即当前时刻的分钟数和秒数均为０】，弹出对话框提示“现在是北京时间ｘ　

点整”。在设计整点报时器时，定时器控件Ｔｉｍｅｒｌ的Ｉｎｔｅｒｖａｌ属性应设置为　

１０００（１０００毫秒＝１秒），Ｔｉｍｅｒｌ的ｔｉｍｅｒ事件代码如下：　

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

＿

Ｔｉｍｅｒ（）　

Ｉｆ　Ｓｅｃｏｎｄ（Ｔｉｍｅ（））＝０　Ａｎｄ　Ｍｉｎｕｒｅ（Ｔｉｍｅ（））＝０　Ｔｈｅｎ　

ａ＝ＭｓｇＢｏｘ（”现在是北京时间”＋Ｓｔｒ（Ｈｏｕｒ（Ｔｉｍｅ（）））＋”点整”）　

ＥｎｄⅡ　

Ｅｎｄ　Ｓｕｂ　

２．倒计时器　

在实际生活中，有时需要通过倒计时的方法，让观众随时了解当前距　

正式活动（比赛）的时间差。比如奥运会倒计时、开幕式倒计时等等。倒计　

时器的功能是：先在文本框ｔｅｘｔｌ中输入倒计时的时间（形式为ｈｈ：ｍｍ：ｓｓ），　

当单击“开始倒计时”按钮ｃｏｍｍａｎｄｌ时，每隔一秒钟，文本框ｔｅｘｔｌ中的时　

间倒退一秒钟，直到时间为０（ｏｏ：０ｏ：Ｏ０】时，弹出对话框提示“时间　

到ｌＩ！”。在窗体中应添加按钮控件（ｅｏｍｍａｎｄ１）、定时器控件（ｔｉｍｅｒ１）和文　

本框控件（ｔｅｘｔ１）。定时器控件ｔｉｍｅｒｌ的Ｉｎｔｅｒｖａｌ属性应设置为１０００，Ｅｎａ．　

ｂｌｅｄ属性应设置为Ｆａｌｓｅ。相关代码如下：　

Ｐｕｂｌｉｃ　ｈ，ｍ，Ｓ，Ｓｌｉｍ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄｌ

一

（；ｌｉｃｋ（）　

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

Ｅｎｄ　Ｓｕｂ　

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

ｈ＝Ｖａｌ（Ｌｅｆｔ（Ｔｅｘｔ１．Ｔｅｘｔ，２））　

ｍ＝Ｖａｌ（Ｍｉｄ（Ｔｅｘｔ１．Ｔｅｘｔ，４，２））　

ｓ＝Ｖａｌ（Ｒｉｇｈｔ（Ｔｅｘｔ１．Ｔｅｘｔ。２））　

ｓｕｍ＝ｈ　３６（）ｏ＋ｍ　６Ｏ＋ｓ　

ｓｕｍ　￥ｔｌｒｒｌ一１　

ｈ＝Ｓｌｉｍ＼３６００　

ｍ＝（ｓｌｉｍ　Ｍｏｄ　３６００）＼６０　

ｓ＝ｓｌｉｍＭｏｄ　６０　

ｈ＝ＩＩＩ（ｈ＜１０，”０”＋Ｔｒｉｍ（Ｓｔｒ（ｈ）），Ｔｒｉｍ（Ｓｔｒ（ｈ）））　

ｍ：Ｉｌｌ＂（ｍ＜１０，”０”＋Ｔｒｉｍ（Ｓｔｒ（ｍ）），Ｔｒｉｍ（Ｓｔｒ（１１１）））　

ｓ：ＩＩｆ（ｓ＜１０，”０”＋Ｔｒｉｍ（Ｓｔｒ（ｓ）），Ｔｒｉｍ（Ｓｔｒ（Ｓ）））　

Ｔｅｘｔ１．Ｔｅｘｔ＝ｈ＋”：”＋ｍ＋”：”＋ｓ　

Ｉｆ　ｓｕｍ＝０　Ｔｈｅｎ　

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

８０　１２／２００９　

Ｅｎｄ　Ｓｕｂ　

二、随机控制　

１．摇奖器　

摇奖器功能是根据摇奖规则，从规定的数字范围内随机的选出规定个　

数的随机号码。下面以体彩２２选５为例介绍摇奖器的制作方法。单击命　

令按钮控件ｃｏｍｍａｎｄｌ开始进行摇奖，标签控件Ｌａｂｅ１］一Ｌａｂｅｌ５不断地随机　

显示抽取出的五个幸运号码，单击命令按钮ｃｏｍｍａｎｄ２实现抽奖。ｅＯｌｌｌ－　

ｍａｎｄｌ的Ｃａｐｔｉｏｎ设置为“摇奖”，ｃｏｍｍａｎｄ２的Ｃａｐｔｉｏｎ设置为“抽奖”，定时　

器控件Ｔｉｍｅｒｌ的Ｉｎｔｅｒｖａｌ属性值为１Ｏ。相关代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄｌ

—

Ｃｌｉｃｋ（）　

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

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄ２

Ｃｌｉｃｋ（）　

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

Ｗｈｉｌｅ　Ｎｏｔ　ｆ　Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＜＞Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ　Ａｎｄ　Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＜　

＞Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ　Ａｎｄ　Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＜＞Ｌａｂｅｌ４．Ｃａｐｔｉｏｎ　Ａｎｄ　Ｌａｂｅｌ１．Ｃａｐ—　

ｔｉｏｎ＜＞Ｌａｂｅｌ５．Ｃａｐｔｉｏｎ　Ａｎｄ　Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ＜＞Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ　Ａｎｄ　Ｌａ—　

ｂｅｌ２．Ｃａｐｔｉｏｎ＜＞Ｌａｂｅｌ４．Ｃａｐｔｉｏｎ　Ａｎｄ　Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ＜＞Ｌａｂｅｌ５．Ｃａｐｔｉｏｎ　

Ａｎｄ　Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ＜＞Ｌａｂｅｌ４．Ｃａｐｔｉｏｎ　Ａｎｄ　Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ＜＞Ｌａｂｅｌ５．　

Ｃａｐｔｉｏｎ　Ａｎｄ　Ｌａｂｅｌ４．Ｃａｐｔｉｏｎ＜＞Ｌａｂｅｌ５．Ｃａｐｔｉｏｎ　Ａｎｄ　Ｊ　

Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＝Ｉｎｔ（Ｒｎｄ（）￥２２＋１）　

Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ＝Ｉｎｔ（ｔｌｎｄ（）｛２２＋１）　

Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ＝Ｉｎｔ（Ｒｎｄ【】　２２＋１）　

Ｌａｂｅｌ４．Ｃａｐｔｉｏｎ：Ｉｎｔ（Ｒｎｄ（）　２２＋１）　

Ｌａｂｅｌ５．Ｃａｐｔｉｏｎ＝Ｉｎｔ（Ｒｎｄ｛）￥２２＋１）　

Ｗｅｎｄ　

Ｅｎｄ　Ｓｕｂ　

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

Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＝Ｉｎｔ（Ｒｎｄ（）｝２２＋１）　

Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ＝Ｉｎｔ（Ｒｎｄ（）￥２２＋１）　

Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ：Ｉｎｔ（Ｒｎｄ（）￥２２＋１）　

Ｌａｂｅｌ４．Ｃａｐｔｉｏｎ：Ｉｎｔ（Ｒｎｄ（）　２２＋１）　

Ｌａｂｅｌ５．Ｃａｐｔｉｏｎ：Ｉｎｔ（Ｒｎｄ（）　２２＋１）　

Ｅｎｄ　Ｓｕｂ　

其中，Ｗｈｉｌｅ　Ｎｏｔ（…）…Ｗｅｎｄ循环语句的目的是监测随机抽取的五　

个号码是否有重复值，如果有重复值则重新抽取，直到五个号码各不相同　

为止。　

２．礼花绽放　

礼花绽放的功能是随机地出现以窗体中心点为中心的随机颜色的线　

条，以模拟礼花绽放效果。只需在窗体中添加定时器控件Ｔｉｍｅｒｌ，设置其　

Ｉｎｔｅｒｖａｌ属性值为１０，在定时器控件的Ｔｉｍｅｒ事件中利用窗体的ｌｉｎｅ方法实　

现礼花绽放效果，相关代码如下：　

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

Ｔｉｍｅｒ（）　

ｅＯｌｌｌＯｒ＝ＲＧＢ（Ｒｎｄ（】￥２５５，Ｒｎｄ（）｝２５５，Ｒｎｄ（）　２５５）　

Ｘ＝Ｒｎｄ（）　Ｆｏｎｎ１．Ｗｉｄｔｈ　

Ｙ＝Ｒｎｄ（）　Ｆｏｒｍ１．Ｈｅｉｇｈｔ　

睁醉　栅　强　荨毒祷　

Ｆｏｒｍ１．Ｌｉｎｅ（ＦｏｒｍＩ．Ｗｉｄｔｈ／２，Ｆｏｒｍ１．Ｈｅｉｇｈｔ／２）一（ｘ，Ｙ），ｃｏｕｌｏｒ　

四、游戏制作　

Ｅｎｄ　Ｓｕｂ　

ＶＢ定时器控件和其他控件结合，可以制作简单的游戏。下面以“键盘　

三、动画制作　

输入测试”游戏为例进行介绍。此游戏的功能是：由应用程序随机抽取并　

１．进度条　显示１０个字母，等待用户依次输入。当输入正确时，抽取并显示下一个随　

在ＶＢ应用程序设计中，有时需要通过进度条动画来表达一些对象的　

机字母。直到抽取十个字母，并均输入正确为止。最后弹出对话框，显示　

操作进度，如安装进度、下载进度、完成进度等等。下图为“进度条制作”的　输入速度。此程序需要用到３个公共变量，变量ａ来记录随机抽取出的字　

运行界面。标签控件Ｌａｂｅｌｌ用于显示进度比例，标签控件Ｌａｂｅｌ２用于显示　母的ＡＳＣＩＩ值，变量Ｓ用来记录游戏开始时的系统时刻（通过Ｓ＝ｔｉｍｅｒ（），　

标题“进度条的制作”，形状控件Ｓｈａｐｅ２为进度框（其属性ＢａｃｋＳｔｙｌｅ的值为　

使ｓ赋值为从午夜算起已经过的秒数），变量ｎ用来记录抽取字母的个数。　

Ｔｒａｎｓｐａｒｅｎｔ），形状控件Ｓｈａｐｅｌ为进度条（其属性Ｂｏｒｄｅｒｃｏｌｏｒ的值　

通过窗体的ＫｅｙＤｏｗｎ事件来记录并检测按键所对应的字母是否正确，如果　

＆Ｈ００ＦＦＯＯＯＯ＆，属性ＢａｃｋＳｔｙｌｅ的值为Ｏｐａｑｕｅ）。定时器控件的Ｉｎｔｅｒｖａｌ属　正确，则设置定时器控件Ｔｉｍｅｒｌ的Ｅｎａｂｌｅｄ属性值为Ｔｒｕｅ，即让定时器控件　

性值为ｌ０，其Ｔｉｍｅｒ事件代码如下：　

Ｔｉｍｅｒｌ继续下一个随机字母的抽取和显示。定时器控件Ｔｉｍｅｒｌ的Ｉｎｔｅｒｖａｌ　

属性应设置为１。相关代码如下：　

Ｐｕｂｌｉｃ　ａ，ｓ，ｎ　

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

—

Ｋｅ：ｃＤｏｗｎ（ＫｅｙＣｏｄｅ　Ａｓ　Ｉｎｔｅｇｅｒ，Ｓｈｉｔｆ　Ａｓ　Ｉｎｔｅｇｅｒ）　

ＩｆＫｅｙＣｏｄｅ：ａ　Ｔｈｅｎ　

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

Ｐ＝０　

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

Ｔｉｍｅｒ（）　

ＥｎｄⅡ　

Ｓｈａｐｅ１．Ｗｉｄｔｈ＝Ｓｈａｐｅ１．Ｗｉｄｔｈ＋ｌ０　

Ｅｎｄ　Ｓｕｂ　

Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ：Ｓｔｒ（Ｉｎｔ（Ｓｈａｐｅ１．Ｗｉｄｔｈ／Ｓｈａｐｅ２．Ｗｉｄｔｈ｝１００））　

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

—

Ｌｏａｄ（）　

＋”％”　

Ｓ：Ｔｉｍｅｒ（）　

Ｉｆ　Ｓｈａｐｅ１．Ｗｉｄｔｈ＞＝Ｓｈａｐｅ２．Ｗｉｄｔｈ　Ｔｈｅｎ　

Ｅｎｄ　Ｓｕｂ　

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

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

Ｅｎｄ　Ｉｆ　

Ｒａｎｄｏｍｉｚｅ　

Ｅｎｄ　Ｓｕｂ　

ａ＝６５＋Ｉｎｔ（Ｒｎｄ（）｝２６）　

２．滚动字幕　

Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＝Ｃｈｒ（ａ）　

在ＶＢ应用程序开发中，可以通过定时器控件（Ｔｉｍｅｒ）制作类似网页中　

ｎ＝ｎ＋１　

滚动字幕的效果。利用ＶＢ可以制作从左往右、从右往左、交替三种方式的　

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

滚动宇幕效果。下面以“交替”方式的滚动宇幕为例介绍滚动宇幕的制作　

ｆＩ　ｎ＝１０　Ｔｈｅｎ　

方法。交替方式的滚动字幕就是宇幕不断地来回滚动，文字碰到页面边界　

ｓｐｅｅｄ＝Ｓｔｒ（Ｉｎｔ（（Ｔｉｍｅｒ（）一Ｓ）／１０｝６０））　

后就向相反方向滚动。在窗体中应添加标签控件（１ｂａｅｌ１）和定时器控件　

Ｍ。ｇＢＯＸ（”您的速度为”＋ｓｐｅｅｄ＋”宇／分钟”）　

（ｔｉｍｅｒ１）。设置标签控件ｌａｂｅｌｌ的ｃａｐｔｉｏｎ属性为“欢迎使用本软件”，设置　

Ｅｎｄ　Ｉｆ　

定时器控件的Ｉｎｔｅｒｖａｌ属性值为１。定义全局变量ａ以控制滚动的方向，相　

Ｅｎｄ　Ｓｕｂ　

关代码如下：　

综上所述，ＶＢ定时器控件由于其具有功能灵活、易于控制、操作简单　

Ｐｕｂｌｉｃ　ａ　

等优点，在软件开发中有着广泛的应用价值。利用ＶＢ定时器控件不仅可　

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

Ｔｉｍｅｒ（）　

以实现程序控制和动画设计的功能，还可以实现简单游戏的制作。　

Ｉｆ　ａ＝０　Ｔｈｅｎ　

参考文献：　

Ｌａｂｅｌ１．Ｌｅｆｔ：Ｌａｂｅｌ１．Ｌｅｆｔ＋１０　

［１］林信成等．Ｖｉｓｕａｌ　Ｂａｓｉｃ　６入门经典［Ｍ］．北京：中国电力出版社，　

Ｉｆｋ出ｅｌ１．Ｌｅｆｔ＞＝Ｆｏｒｍ１．Ｗｉｄｔｈ—Ｌａｂｅｌ１．Ｗｉｄｔｈ　Ｔｈｅｎ　ａ＝１　

１９９９，１０．　

Ｅｎｄ　Ｉｆ　

［２］刘炳文．二级教程Ｖｉｓｕａｌ　Ｂａｓｉｃ语言程序设计［Ｍ］．北京：高等教育　

Ｉｆ　ａ＝１　Ｔｈｅｎ　

出版社，２００１，１０．　

Ｌａｂｅｌ１．Ｌｅｆｔ＝Ｌａｂｅｌ１．Ｌｅｆｔ一１０　

［３］邱玉辉．Ｖｉｓｕａｌ　Ｂａｓｉｃ语言程序设计［Ｍ］．昆明：云南科技出版社，　

Ｉｆ　Ｌａｂｅｌ１．Ｌｅｆｔ＜＝０　Ｔｈｅｎ　ａ＝０　

２００２，８．　

Ｅｎｄ　Ｉｆ　

本论文为太原大学外语师范学院“基于《计算机公共基础》的网络课程　

Ｅｎｄ　ＳＵｂ　

设计与研究”的课题成果。　

一　一　～

～一　一　，　～　～　…　ｖ一　

（上接第６７页）　

［５］金积令．汉英词序对比研究句法结构中的前端重量原则和末端重　

参考文献：　

量原则［Ｊ］．外国语，１９９８，（１）：２８—３５．　

［１］邹智勇．左向移位结构及其语用功能［Ｊ］．外语与外语教学，１９９８，　

［６］陆俭明．现代汉语句法论［Ｍ］．北京：商务印书馆，１９９３．　

（１２）：８—１Ｏ．　

［７］Ｇｒｅｅｎｂｅｒｇ，Ｊｏｓｅｐｈ　Ｈ１　Ｕｎｉｖｅｒｓａｌｓ　ｏｆ　Ｌａｎｇｕａｇｅ［Ｍ］．Ｍａｓｓ　Ｃａｍｂｒｉｄｇｅ：　

［２］Ｑｕｉｒｋ，Ｒ．，Ｓ．Ｇｒｅｅｎｂａｕｍ，Ｇ．Ｌｅｅｃｈ，ａｎｄ　Ｊ．Ｓｖａｒｔｖｉｋ．Ａ　Ｃｏｒｎ－　

Ｍ．１．Ｔ．Ｐｒｅｓｓ，１９６３．　

ｐｒｅｈｅｎｓｉｖｃ　Ｇｒａｍｍａｒ　ｏｆ　ｔｈｅ　Ｅｎｇｌｉｓｈ　Ｌａｎｇｕａｇｅ　

［８］Ｐｒｉｎｃｅ．Ｅ．Ｔｏｗａｒｄ　ａ　ｔａｘｏｎｏｍｙ　ｏｆ　ｇｉｖｅｎ／ｎｅｗ　ｉｎｆｏｒｍａｔｉｏｎ［Ａ］．Ｂｉｍｅｒ，　

［Ｍ］．Ｌｏｎｄｏｎ：Ｌｏｎｇｍａｎ，１９８５．　

１９９４．　

［３］Ｂｉｒｎｅｒ　Ｂ　Ｊ．Ｉｎｆｏｒｍａｔｉｏｎ　Ｓｔａｔｕｓ　ａｎｄ　Ｗｏｒｄ　Ｏｒｄｅｒ：ａｎ　Ａｎａｌｙｓｉｓ　ｏｆ　Ｅｎｇ－　

［９］徐盛桓．英语倒装句研究［Ｊ］．外语教学与研究，１９９５，（４）：２８—３７．　

ｌｉｓｈ　Ｉｎｖｅｒｓｉｏｎ［Ｊ］．Ｌａｎｇｕａｇｅ，１９９４，７０（２）：２３３—２５９．　［１０］张克定．倒装旬的语用理据【Ｊ］．外语学刊，２００２，（１）：６８—７２１．　

［４］邓奇．从功能主义视角看汉语口语中的倒装句［Ｊ．吉林省教育学院　［１１］张克定．Ｖｅｒｓｃｈｕｅｒｅｎ的语用理论对语用句法研究的启示［Ｊ］．外　

学报，２００８，（４）：１１４一Ｉ１６．　

语教学，２００２，（９）：１—５．　

１２／２００９　８１