编程论坛 → VB6论坛

循环延时

yuk_yu 发布于 2012-10-23 10:04， 584 次点击

如何可以实现循环延时？

例如：

for i = 1 to 100

过程1

延时1分钟

过程2

next

5 回复

Artless2012-10-23 12:20

sleep

yuk_yu2012-10-23 13:54

回复 2楼 Artless

不停地循环肯定占CPU，用Sleep确实会造成程序无响应，怎么办？

yuk_yu2012-10-23 14:15

回复 3楼 yuk_yu

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Savetime As Double
Function Timeover(Delay As Long)
     Savetime = timeGetTime
     While timeGetTime < savetime + Delay
     DoEvents
     Wend
End Sub

解决了！！！这个很好使！

[ 本帖最后由 yuk_yu 于 2012-10-23 14:25 编辑 ]

wube2012-10-23 15:12

DoEvents() + Sleep() = MyDoEvents()

程序代码：

'Delay Time
Public Function MyDoEvents(Optional ByVal dwMilliseconds As Long = 1)
MyDoEvents = DoEvents()
Sleep dwMilliseconds
End Function

wanghuailin2012-10-30 13:18

我只会C，这些还看不懂，正在学习中