Question

如何用VB中的时间控件做一个计时器？

例如在一个label上显示格式为00-00（分-秒）的计时器，怎么写代码？

Answer 1

timer1.interval=1000
private sub timer1_timer()
t=t+1
sec=t mod 60
min=(t-sec)/60
label1.caption=str(min)+":"+str(sec)
end sub

追问

不行啊！

追答

哪一部分不行？

追问

运行起来没反应啊

追答

当然不能直接复制啊。。。我没把它写完整。。。
首先你要创建一个标签和一个timer控件，然后在timer控件里面写
private sub timer1_timer()
t=t+1
sec=t mod 60
min=(t-sec)/60
label1.caption=str(min)+":"+str(sec)
end sub

timer1.interval=1000这一句可以写到form_load里面

追问

为什么显示0:1然后就不动了？

追答

那就在form_load里面加一句：timer1.enabled=true
这些都是可以自己设置的