怎么用VB6.0编一个倒计时程序？

Question

其中要有三个命令按钮，一个水平滚动条，一个文本框。要求：运行时单击“设置”按钮，弹出Inputbox输入框供用户输入倒计时的时间（以分钟为单位）。单击“开始”按钮则在文本框内显示剩余的时间数（以时：分：秒的格式），同时滚动条上的滚动块同步随时间自左向右移动。哪位哥哥来帮我一下。在此谢谢！！！！

Answer 1

楼上的代码这么长，还简单？

无语

我给你写了一个，这个才是真正的简单实用，呵呵！

加个TIMER控件
把Interval
属性调成
1000
毫秒
也就是
1秒
在加两个
TEXT
text1.text=3
text2.text=00
在加个按钮
开始倒计时
就行了

程序代码如下:

Private
Sub
Form_Load()
Timer1.Enabled
=
False
End
Sub

Private
Sub
Timer1_Timer()
If
(Text2.Text
<=
0)
Then
Text2.Text
=
59
Text1.Text
=
Text1.Text
-
1
Else
Text2.Text
=
Text2.Text
-
1
End
If

End
Sub
Private
Sub
Command1_Click()
Timer1.Enabled
=
True
End
Sub

如果有什么地方不懂，欢迎联系我！

Answer 2

dim shi as long
dim fen as long
dim miao as long
Private Sub form_load()
fen=val(0)
miao=val(0)
shi=val(0)
end sub
Private Sub command2_click()
fen=inputbox("时间","输入","")
if fen>=val(60) then shi=val(shi)+val(1)
end sub
Private Sub command1_click()
Timer1.Enabled=true
end sub
Private Sub Timer1_timer()
if miao<>val(0) then
miao=miao-1
end if
if miao=val(0) and fen <>val(0) then
fen=fen-1
miao=60-1
end if
if miao=val(0) and fen =val(0) and shi <>val(0) then
shi=shi-1
fen=60-1
miao=60-1
end if
if miao=val(0) and fen =val(0) and shi =val(0) then
msgbox("时间用尽了!")
timer1.Enabled=False
end if
text1.text="还剩" & shi & "时" & fen & "分" & miao & "秒"
end sub本回答被提问者采纳

Answer 3

Dim h As Integer
Dim m As Integer
Dim s As Integer

Private Sub Command1_Click()
m = InputBox("输入以分钟为单位数值", "设置", "10")
s = m * 60
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Command1.Caption = "设置"
h = 0: m = 0: s = 0
Text1.Locked = True

End Sub

Private Sub Timer1_Timer()
If s > 0 Then
s = s - 1
m = (s \ 60) Mod 60
h = (m \ 60) Mod 60
Text1.Text = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s Mod 60, "00")
Else
Timer1.Enabled = False
End If
End Sub

由于时间关系不做太多判断了,,判断之类的东西自己写吧

Answer 4

很简单，用目标时间减去现在的时间。时间相减应该会啊！

Answer 5

用timer控件