我VB的timer事件不管用？

来源：百度知道 编辑：UC知道 时间：2024/04/29 15:01:11
今天写一个作业 ，用到了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 如果可以请加我我把文件传给您帮我看一下！

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

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