关于timer的使用，简单

[badcoldlj]

我在程序中想用一个计时器来延时，代码如下

Public Sub ThinkInterval()
Dim Interval As Integer
ThinkOK = False
Interval = 1000
Timer1.Interval = Interval
Timer1.Enabled() = True
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
ThinkOK = True
End Sub

在另外一处调用thinkinterval（），时间结束后（tick将thinkok置为true）在执行别的动作，调用如下

....
ThinkInterval()
while thinkok=false

end while
'do other things
.....

可是一到这就死循环，thinkok不能置为true，我错在哪里了呢？

[panyee]

你别调用ThinkInterval, 只要运行 Timer1.Enabled = True, 就可以

[badcoldlj]

还是不行啊，我改成了
Dim Interval As Integer
ThinkOK = False
Interval = 1000
Timer1.Interval = Interval
Timer1.Enabled() = True
While ThinkOK = False

End While
do other things
还是死循环

[tianch]

我是用线程来延时的
开一个线程，把线程挂起你需要的时间，用timer控件不断测试线程里的值，如果值改变了就说明线程执行完了，你再执行后面的语句

[badcoldlj]

tianch(晴空),你说的正是我想要的，具体怎么做啊，写一段简单的代码吧，多谢！！

[panyee]

延时一秒的话，　一句

Thread.Sleep(1000)　

就可以了

[menuvb]

UP，好，