订阅VB 制作倒计时 程序
来源：网络收集 点击： 时间：2024-05-06【导读】：
VB 制作 设定分钟数，进行倒计时显示。创新在于 利用取余 找出 秒数，利用取整找出 分钟数。方法/步骤1/3分步阅读
2/3
制作
倒计时的页面设置如下，本案例的特点是 时间设定以分钟为单位，但在lable中显示的是以1分30秒这样的剩余时间显示。
2/3首先在公共变量声明 分钟数和秒数的变量
dim fen
dim miao
然后在开始倒计时 按钮命令下：
Timer1.Enabled = True
Timer1.Interval = 1000 ‘ 一秒钟 启动计时器以此，对应，以秒为单位递减
fen = Val(Text1.Text) ‘读取设定的倒计时时间，以分钟为单位
miao = fen * 60 ’我们以秒为单位递减，统计总的秒数
3/3最重要的是在定时器的事件中
Private Sub Timer1_Timer()
miao = miao - 1 ‘以秒为单位 ，递减。
If miao 60 Then ’假如秒数大于60，
a = miao \ 60 ‘应该显示为几分几秒
b = miao Mod 60 ’ a代表分，b代表秒数 利用取整 和取余
Label1.Caption = a 分 b 秒
Else
Label1.Caption = miao 秒 ‘如果秒数本身小于60，直接显示
End If
End Sub
制作 版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_693640.html
上一篇：铁塔换电如何无满电换电
下一篇：微博怎么删掉所有的微博
