求一个1小时倒计时VB程序代码 在线等！

来源：百度知道 编辑：UC知道 时间：2024/06/04 03:10:01
请各位高手帮帮忙，小弟急需一个倒计时，
时限1小时，一小时后自动打开一个FROM。

注意：要将剩余的时间也显示出来。急需使用
拜托了。谢谢大家

对不起各位，我的积分只有12分

如果能够得到答复将感激不尽。

添加一个timer，一个form
代码如下

dim delay as integer

private sub timer1_timer()
me.cls
if delay>0 then
delay=delay-1
else
form2.show
timer1.enable=false
end if
me.print "还有" & delay & "秒。"
end sub

private sub form_load()
timer1.interval=1000
timer1.enable=true
me.autoredraw=true
end sub

1小时是60分钟或者3600秒，可以用一个定时器1秒间隔，给一个自变量增1，直到3600就是1小时。
具体的今天来不及说了。