visual studio 2008要延时用什么?
我知道vb6.0是用api的Sleep函数可以延时,在VS2008中要用什么啊
[解决办法]
延时的方法很多,你可以试试以下的方法:
1.大循环延时:用一个循环次数够大的for语句,里面不写内容,在那空转耗时
2.用API:Sleep
Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
'调用
Sleep(5000)
3.用System.Threading.Thread.Sleep
‘调用
System.Threading.Thread.Sleep(5000)
(注:它有两个版本,一个是挂起时间,一个是线程堵塞时间,请参考MSDN)
4.如果只是作延迟的一个动作,可以用如下代码来实现:
'按一下按钮,label上出现"0",过了5秒后,出现"1"
Dim WithEvents x As Timer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = "0"
x = New Timer()
x.Interval = 5000
x.Enabled() = True
End Sub
Private Sub x_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles x.Tick
Label1.Text = "1"
End Sub
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.(这两个只是调用接口不一样, 一个是回调函数,一个是事件;前者更精确些)
http://topic.csdn.net/t/20020730/03/909318.html
自己去看看