VB中如何timer 控件进行倒计时

VB中用Timer控件实现倒计时

最新推荐文章于 2022-08-09 22:50:47 发布

转载最新推荐文章于 2022-08-09 22:50:47 发布 · 2.2k 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/bufenye/blog/408416

文章标签：

#python

本文介绍了在VB中使用Timer控件实现倒计时的方法，包括设置计时周期、定义时间变量、添加计时规则以及设定达到特定时间后的动作。通过示例代码详细解释了如何在窗体加载时启动计时器，以及在计时结束时关闭或重新初始化窗体。

2019独角兽企业重金招聘Python工程师标准>>>

1、程序加载时操作： Private Sub Form_Load() '窗体加载时自动进行
Timer1.Interval = 1000 ‘设置计时周期为1秒注意默认计时单位为毫秒，即1/1000秒

2、定义一个时间变量。可以某控件的Caption属性代替，如Label12.Caption
3、拖放timer控件到程序界面上
4、设置倒计时：双击时钟控件，输入计时规则，如Label12.Caption = Label12.Caption + 1
5、设置当时间值达到某一条件的时候应采取的方法（即动作）。可以用if语句。如if Label12.Caption =60，then Unload Form1，注意块if语句与行if语句的区别

以下是例子：
Private Sub Form_Load() '窗体加载时自动进行以下操作
Timer1.Interval = 1000 '计时频率设为1秒
end sub
Private Sub Timer1_Timer()
Label12.Caption = Label12.Caption - 1 '以秒计时
End Sub
Private Sub CommandSure_Click()
if Label12.Caption =
s = MsgBox("确认提交，取消重填！", 1, "提示信息") '弹出对话框
If s = 1 Then
f = MsgBox("提交信息成功，请点击确认退出系统", 0, "")
Unload Form1 '窗体关闭
Else
Load Form1 '重新初始化
Form1.Enabled = True '允许重填
Timer1.Enabled = True '继续计时
CommandSure.Enabled = True '确定按钮可用
end if
end sub

转载于:https://my.oschina.net/bufenye/blog/408416