Question

怎么用vb编写倒计时的程序

怎么用vb编写倒计时的程序 倒计时的时间59秒 58秒。。。然后提示时间到了！里面添加一个按钮控件 控制开始。谢谢各路朋友前来回答！

Answer 1

用VB6.0写的，运行时单击“设置”按钮，弹出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

Answer 2

可以不使用控件。
你直接获取当前系统的年月日（分，钞这些都一个道理，我就不说了。只说个大概），然后把年转为月，月转为日，然后进行比较，相差多少，直接显示出来就行了。
哦，说错了，写到这里的话，看来还是需要一个timer控件才行，不然时间不会走。
思路给你写出来了，你自己看着办吧。