請教一個關於延時的問題

Question

請問一下怎樣延時 用哪個函數或API好.請問怎樣用SLEEP延時還能做別的事 ，我加了DOEVENT 還是不行 。主要是在延時時還能做別的事。最好給我一段代碼。謝謝！ 

Answer 1

sleep不行，程序不响应就任何操作

Answer 2

sleep不行，程序不响应就任何操作

Answer 3

dim start as doublestart = timerdo
  doevents
while timer - start < 等待时间

Answer 4

sleep 加 doeventsfor i =1 to 1000
   do something
   Sleep 10
   doevents
next
 Sleep要短 不建议超过 100否则就会感觉一顿一顿的

Answer 5

Public Declare Function timeGetTime Lib "winmm.dll" () As Long   
Private Function Delay(LMSceond As Long)   
        Dim TI As Long   
        If LMSceond < 5 Then Exit Function   
        TI=timeGetTime   
        Do While timeGetTime-TI< LMSceond   
           DoEvents   
        Loop   
End Function   

Answer 6

我是想可以用指定的时间延时 比如说 我想延时4秒就延时4秒 3秒就延时3秒  还有6楼的能不能稍幑解释一下你的CODE

Answer 7

Dim EndTime As DateEndTime = Timer + 等待秒数 * 1000Do
  Doevents
Loop Until Timer > EndTime这段代码的问题是，跨越子夜时将现入死循环。因为 Timer 永远不可能大于 24 小时。解决方法：Dim EndTime As Date
Dim EndDate As DateEndDate = Date
EndTime = Timer + 等待秒数 * 1000If EndTime > 86400000 Then
EndDate = EndDate + 1
EndTime = EndTime - 86400000
End IfDo
  Doevents
Loop Until (Date = EndDate) And (Timer > EndTime)