189 8069 5689
dim
成都创新互联是一家业务范围包括IDC托管业务,雅安服务器托管、主机租用、主机托管，四川、重庆、广东电信服务器租用,绵阳服务器托管，成都网通服务器托管,成都服务器租用,业务范围遍及中国大陆、港澳台以及欧美等多个国家及地区的互联网数据服务公司。
s
as
long
private
sub
cmdset_click()
timer1.enabled
=
false
s
=
inputbox("请输入倒计时秒数：",
"设置倒计时秒数",
5)
label1
=
"倒计时：
"
s
"秒"
cmdstop.tag
=
s
cmdstart.tag
=
cmdstart.caption
=
"启动时间"
cmdstart.enabled
=
s
cmdstop.enabled
=
s
end
sub
private
sub
cmdstart_click()
if
cmdstart.tag
=
then
timer1.enabled
=
true
cmdstart.caption
=
"暂停时间"
cmdstart.tag
=
1
else
timer1.enabled
=
false
cmdstart.caption
=
"启动时间"
cmdstart.tag
=
end
if
end
sub
private
sub
cmdstop_click()
cmdstart.tag
=
cmdstart.caption
=
"启动时间"
timer1.enabled
=
false
s
=
cmdstop.tag
label1
=
"倒计时：
"
s
"秒"
end
sub
private
sub
timer1_timer()
s
=
s
-
1
label1
=
"倒计时：
"
s
"秒"
if
s
=
then
timer1.enabled
=
false
cmdstart.caption
=
"启动时间"
cmdstart.tabindex
=
end
if
cmdstart.enabled
=
s
cmdstop.enabled
=
s
end
sub
1、打开VB6.0，新建一个工程，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框。
2、将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅黄色。
3、双击“设置倒计时”命令按钮，进入代码编辑窗口。
4、双击“启动倒计时”命令按钮，进入代码编辑窗口。
5、双击“计时器”控件，进入代码编辑窗口。
6、在代码编辑窗口的通用段进行变量定义：Dim h As Integer, m As Integer, s As Integer '分别存储时分秒Dim a As Integer。
7、双击窗体，进入代码编辑器，在 Form_Load事件中写入代码：Timer1.Enabled = False '先关闭计时器。
8、关闭代码窗口，按下F5运行程序，单击“设置倒计时”命令按钮，弹出输入对话框，此时输入分钟数为1，确定。
9、单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现了倒计时功能。
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 tCount As Integer '用来计数
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
tCount = 10
Timer1.Interval = 1000 '每秒执行一次
Timer1.Enabled = True
End
Sub
Private Sub
Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
tCount -= 1
If tCount = 0 Then
MessageBox.Show("时间到")
Timer1.Enabled = False
End If
End
Sub