VB倒计时怎么做

1、首先，建立一个工程，并在窗口中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，再添加一个计时器控件，并且添加一个文本框，将界面设置成如下图所示。

2、将文本框的Text里的属性清空干净，再把字体Font的属性调整成为小四，方便接下来的观察，一定记得把背景色属性Backcolor调为浅黄色。

3、接下来，双击“设置倒计时”命令这个按钮，就会进入到代码编辑窗口，输入如图所示代码：

4、接着双击“启动倒计时”命令这个按钮，接下来会进入代码编辑窗口，再输入如下图所示代码：

5、再接着双击“计时器”控件，然后进入代码编辑窗口，输入如图所示代码：

6、在代码编辑窗口的通用段进行这三个变量的定义：Dim h As Integer, m As Integer, s As Integer '分别存储这三个量时、分、秒，如下图所示。

7、最后再双击窗体，然后就会进入代码编辑器，在 Form_Load事件中写入代码，代码如下图红框所示：

8、接着关闭代码窗口，按一下F5运行程序，再单击“设置倒计时”这个命令按钮，这时候就会弹出一个输入对话框，一定要记得此时输入分钟数，数字为1，然后确定，如图所示：

9、最后一定要单击“启动倒计时”这个命令按钮，然后文本框就会显示倒计时时间，并会不断地变动，这个时候你就可以看见时间在变动，这就是实现了倒计时功能，如图所示：

扩展资料：

使用VB倒计时设置计时参数5X60=300秒，然后设置定时器1S中断.当计时器为0就是5分钟，将计时器参数显示在文本框中就可以了。这个题目需要使用计时器控件，所以计时器的控件的Timer事件以及Enable属性、Interval属性需要熟知。

Dim i As Integer

Private Sub Command1_Click() '(计时器开始工作)

　Command1.enabled=false'倒计时开始了，此按钮不能再次点击

　Timer1.Enabled = True　’开始计时

　Timer1.Interval = 1000　‘一秒一刷新界面

　 i=60　'要倒计时的时间　，此例假设为60秒，你可实际更改

End Sub

Private Sub Timer1_Timer()

　i = i-1　’递减

　If i > 0 Then

　　Label1.Caption = "剩余" & i & "秒"

　else

　　label1.caption="时间到"

　　timer1.enabled=false　‘停止计时

　　Command1.Enabled = True　’按钮可用

　end if

End Sub

张志晨：仅供参考。

用Timer控件，.Interval设置触发时间，再定义一个全局变量用于计数即可，示例：

Dim js As Long
Private Sub Form_Load()
Timer1.Interval = 1000 '1秒触发一次
Label1 = ""
js = 10
End Sub

Private Sub Timer1_Timer()
If js = 0 Then End
Label1 = "倒计时：" & Val(js) & "秒后关闭"
js = js - 1
End Sub

Dim i As Long
Private Sub Command1_Click() '(计时器开始工作)
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i < 10 Then '10秒
Label1.Caption = "剩余" & 10-i & "秒"

else
Label1.Caption = "时间到"

i = 0
Timer1.Interval = 0
End If
End Sub

第一空：timer1.enable = true
i = 10 ' 改成你想要倒计时的次数

第二空：i = i - 1
第三空：label1.caption = "还剩:" & i & "秒"
第四空：timer1.enable = false

另外需要设定Timer1的Interval属性为1000，即1秒钟执行一次Timer事件。