转： VB.Net 中实现延迟的几种方法分析

转： http://topic.csdn.net/t/20020730/03/909318.html

1. Threading.Thread.Sleep(...)
优点： 简单
缺点： Sleep期间程序（其实是该线程）没有任何响应。

2. Timer(定时器)
定时器有3种。Forms.Timer/ Timers.Timer/ Threading.Timer
第一种是在当前线程启动事件处理，第二种在事件发生时会启动一临时线程处理事件，第三种在事件发生时在一临时线程中调用指定的回调函数。
优点： 不阻塞当前线程
缺点： 需要定义一事件函数以处理定时事件。

3. DoEvents(保证消息循环)
可以使用一循环执行定时。代码示例：
Public Shared Sub Sleep(ByVal Interval)
Dim __time As DateTime = DateTime.Now
Dim __Span As Int64 = Interval * 10000 '因为时间是以100纳秒为单位。
While (DateTime.Now.Ticks - __time.Ticks < __Span)
Application.DoEvents()
End While
End Sub

优点： 不阻塞当前线程的消息循环。
缺点： 不能保证消息处理能否及时回来。

===========================================
结论：
1. 在没有消息循环线程中，使用Thread.Sleep
2. 在带消息循环线程中，如果需要定时执行一段程序，使用Forms.Timer
3. 在带消息循环线程中，若只想延时一段时间，请使用上面示例中自定义的Sleep
4. 若要保证定时精度，请使用Threading.Timer或Timers.Timer.(这两个只是调用接口不一样， 一个是回调函数，一个是事件；前者更精确些)