Question

我VB的timer事件不管用？

今天写一个作业 ，用到了Timer控件 我在button1的click里Timer1.Enabled=True Time1.Interval=1000
然后
Private Sub Timer1_Timer()
MsgBox("Time is up", MsgBoxStyle.OkOnly)
Timer1.Enable=False
End Sub
这样可以吗？为什么我debug的时候 发现这个timer事件完全没有执行呢？没有跳出MsgBox....郁闷 是在Timer1_Timer()括号里还要加上点什么吗？
大哥你说的我试了 好像不行啊
加分两百了求大家帮忙啊 我qq 907268435 如果可以请加我我把文件传给您帮我看一下！

Answer 1

首先，在button1的代码中有语法错误，第二句的time1是不合法的，因为它应该是timer1，下面的msgbox中使用的语法也不对，后面要出现的按钮，直接写vbokonly，下面一句中的Enable应该为Enabled，在设计器中，先将计时器控件Timer1的Enabled属性设置为False，这样在窗体装入的过程中，才不至于直接运行了它的Timer事件代码，以便于用代码控制其运行。完整的代码可以这样写：（可以运行通过） 

在button1的click事件中，代码是： 

Timer1.Enabled=True 

Timer1.Interval=1000 

在Timer1的timer事件中的代码是： 

Private Sub Timer1_Timer() 

MsgBox "Time is up",vbokonly,"提示" 

Timer1.Enabled=False 

End Sub 

代码测试通过了。

Answer 2

根据你的代码，运行时1秒后启动Timer1，并立即显示MsgBox的内容，按消息框“确定”后定时器关闭。就是这样了。

Answer 3

首先你要点击button1把timer控件设置成可用状态.然后再写成以下

Private Sub Timer1_Timer()
MsgBox "Time is up", MsgBoxStyle.OkOnly
Timer1.Enable=False
End Sub

这样看看,,把()给去掉了.. 你这个是VB.net吧.. 呵呵,vb.net我没有用过,但是我知道在vb里面如果要赋值才会加上(),不赋值的话,是不加()

Answer 4

1.控件名写错，不是Time1，而应该是Timer1

2.代码顺序有问题
Timer1.Enabled=True
Timer1.Interval=1000
应该先执行第二句，设置Timer1的Interval属性
然后再激活Timer1控件，否则Timer1会在Interval=0的状态下被激活，Interval=0即无效，自然不会看到Timer事件执行

Answer 5

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox("Time is up", MsgBoxStyle.OkOnly)
Timer1.Enabled = False
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

================================
看你的代码是VB.NET吧，VB6没有MsgBoxStyle.OkOnly的，以上是VB.NET的代码，如果你的代码是网上抄的，而又输入在VB6中的话，自然不能用,可用一下代码：
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
MsgBox "Time is up", vbOKOnly
Timer1.Enabled = False
End Sub