Question

vb timer为什么只运行一次

RT interval属性为1000，不知道为什么每次只运行一次就自动停止，代码如下：

Private Sub Timer1_Timer()
s = 60
s = s - 1
Text2.Text = s
End Sub

执行之后文本框第一秒变为59，第二秒之后就不动了。。。。

Answer 1

执行之后文本框第一秒变为59，第二秒之后就不动了。。。。

 

解答：

timer并没有停止，但是由于你在Timer运行后就重新定义s = 60
于是s就从60开始，然后s = s - 1 就又变59了

修改方案，将s设置为全局变量

在LOAD时，设置s为60，代码如下：

Dim s As Long
Private Sub Form_Load()
s = 60
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
s = s - 1
Text2.Text = s
End Sub