Question

vb timer不会自动运行

我在使用timer时输入了：（用来做倒计时）
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label2.Caption = 5 - t
t = t + 1
If t = 5 Then
MsgBox ("Time Over")
Else
End If
End Sub
结果timer运行了一次就不再运行了，这是为什么？

Answer 1

t没有赋给初值啊！

首先

Dim t As Integer

然后在按钮点击事件里将

t=0

即可解决~！

不用管我的label2,只是监控一下t。

Answer 2

你这里面有好多问题
1在Form_Load里加timer1.enabled=true 就可以启动的时候自动运行了.

2你说的运行一次之后不再运行应该是因为你没有在if语句里让timer1.enabled=false 所以timer会一直运行.即使t=5之后.

3你没有在command1.click里面给t赋初值,这样你运行第二次的时候t不会从1重新开始 所以也不会弹出msg.

追问

我的状况是timer只运行了一次

就是在label中显示了5后数字就不动了......

追答

把if里面的Else跟end if删了试试.if只写一行.

Answer 3

你怎么知道只运行一次，我看是t出了问题，如果t不是在声明区定义的变量的话，就应该在事件过程中定义成静态变量：
不对，把t在声明区定义，然后在按钮事件中重初为0。

追问

就是在label中显示了5后数字就不动了......所以我说timer只运行了一次

追答

不可能，除非t 的值始终是0，才会在标签上显示5不变。在声明区没定义变量t就会这样了。

Answer 4

我理解的是你的意思 是你想倒计时结束之后 从5开始再开始一次倒计时是吗？
Public Class Form1
Dim t = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

Label1.Text = 5 - t
t = t + 1
If t = 5 Then
t = 0
MsgBox("Time Over")
End If
End Sub
End Class
用vs写的