循环延时 - VB6论坛 - 编程论坛档案馆

编程论坛 → 开发语言 → 『 VB6论坛』 → 循环延时

标题：循环延时

取消只看楼主

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16
结帖率：85.71%

楼主

已结贴√ 问题点数：20 回复次数：2

循环延时

如何可以实现循环延时？

例如：

for i = 1 to 100

过程1

延时1分钟

过程2

next

搜索更多相关主题的帖子: 如何　延时　

2012-10-23 10:04

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16

第 2 楼

得分:0

回复 2楼 Artless

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

2012-10-23 13:54

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16

第 3 楼

得分:0

回复 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 编辑 ]

2012-10-23 14:15

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-383850-1-1.html