首页 > 学院 > 开发设计 > 正文

在VB中设计倒计时程序

2019-11-18 17:52:48

字体：大中小

来源：转载

供稿：网友

在程序设计时，经常需要用倒计时，倒计时程序一般不能用时间函数来进行设计，常用的方法是在计时器的触发过程中设置计数
变量来进行控制，程序如下：
Dimhh,mm,ss
SubForm_Load()
hh=0:mm=5:ss=0
timer1.Interval=1000
EndSub
SubTimer1_Timer()
s=IIf(ss<10,"0"&ss,""&ss)
m=IIf(mm<10,"0"&mm,""&mm)
h=IIf(hh<10,"0"&hh,""&hh)
t=h&":"&m&":"&s
Me.Caption=t
ss=ss－1
Ifhh=0Andmm=0Andss=－1Then
msg="练习时间已到，按回车键结束!"
MsgBoxmsg,48,"注意"
EndIf
Ifss=－1Andmm>0Thenmm=mm－1:ss=59
Ifmm=0Andhh>0Thenhh=hh－1:mm=59
EndSub
程序说明：程序中用到三个窗体级变量hh、mm、ss，它们分别代表初始的小时、分钟、秒，可根据情况在程序中指定，也可配合文本框在程序开始运行时输入，程序中用到一个计时器，它每秒钟被触发一次，程序运行时在窗体的标题栏动态地显示倒计时，当计时完毕则显示对话框提示，同时结束程序的运行。->

上一篇：加速VisualBasicForApplication(VBA)

下一篇：得知目前Mouse所指的MenuItem是哪一个

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

荣耀总裁赵明乌镇演讲：荣耀首款5G手机V30下月发布

2019-10-23 09:17:05

搜狐张朝阳：回归媒体是搜狐重新崛起的关键

2019-10-21 09:20:02

华为轮值董事长郭平：虚拟技术创造现实价值

2019-10-21 09:00:12

滴滴英文服务上线两周年用户已超200万

2019-09-26 08:57:12

华为推出全球至快AI训练集群Atlas900

2019-09-25 08:46:36

马斯克：特斯拉正组建中国技术团队

2019-09-25 08:15:43

疑难解答

图片精选

网友关注