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

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

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

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