Question

VB设计中想要增加计时功能 怎么让一个text控件中显示当前游戏所用时间

Answer 1

private a as long

private sub form_load()
timer1.interval=1000
end sub

private sub timer1_timer()
a=a+1
text1.text=a
end sub

Answer 2

设置 ：timer1.interval=1000
代码：
Dim n
Private Sub Timer1_Timer()
n = n + 1
Label1.Caption = n &“秒”
End Sub

追问

难道计时器控件有自动循环的功能么 就是说 会根据时间的变化而改变label的内容 如果是这样为什么我写出来的停在1秒不动呢。。。而且要是我自己加个for就会停在设置的结尾处停住 这是为什么呢?

Answer 3

增加计时功能