如何让一个For循环中，每执行完一个过程后暂停3秒再执行下个过程，再循环？

作者：beitianmolang | 来源：互联网 | 2023-10-13 11:33

查了好久，看了很多老大们提到用如下方法：PublicDeclareSubSleepLibkernel32AliasSleep(ByVal

查了好久，看了很多老大们提到用如下方法：
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Call Sleep(5000)

但是在我机子上根本不生效，请问是我Win系统问题，还是这个方法我哪里用得不对。

如下示范循环。

for i=1 to 10
执行语句1
暂停3秒
执行语句2
next

我是VB菜鸟，请哪位达人帮我解决，谢谢先！

28 个解决方案

#1

for i=1 to 10
执行语句1
暂停3秒 'Sleep(3000)
执行语句2
next

#2

引用 1 楼 unsigned 的回复:

for i=1 to 10
执行语句1
暂停3秒 'Sleep(3000)
执行语句2
next

是我报问题写错了。

但是sleep在我的机子上不生效，半没有暂停3秒。。

#3

你的机子太牛了！让他睡觉都不睡(Sleep)，那就让他干(Do)个不停吧.(^_^)



    Dim i As Integer, sngTimeA As Single

    

    For i = 0 To 10

        sngTimeA = Timer    '起始时间

        Debug.Print "执行语句1于 " & sngTimeA

       Do While Timer - sngTimeA < 3   '空循环3秒

        Loop

        Debug.Print "执行语句2于 " & Timer

    Next

#4

do events和timer相结合。

for i=1 to 10 

    执行语句1 

    StartTime = Timer    ' 设置开始暂停的时刻。

    Do While Timer < StartTime + 3 '暂停3秒

        DoEvents    ' 将控制让给其他程序。

    Loop 

    执行语句2 

next

#5

楼主的机子是“相当的敬业”啊！！！

#6

for i=1 to 10
    执行语句1
    StartTime = Timer    ' 设置开始暂停的时刻。
    Do While Timer < StartTime + 3 '暂停3秒
        DoEvents    ' 将控制让给其他程序。
    Loop
    执行语句2
next

#7

我有个帖子，里面有解决方法，使用延时函数，可以控制任意的循环次数时间长度,你搜索那个帖子看看有没有帮助

#8

楼主的机子肯定得了甲亢了

#9

使用Windows API函数timeGetTime()
timeGetTime函数没有参数,返回值是从开机到现在所经历的毫秒数,这个毫秒数是非周期性递增的,所以不会出现Timer()函数出现的问题,而且这种方法的精确性高于上一种方法。添加一个CommandButton控件,再将以下代码添加到代码窗口中:
'声明
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command3_Click()
Dim Savetime As Double
Text1 = "timeGetTime begin"
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + 5000 '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件。
Wend
Text1 = "timeGetTime end"
End Sub

#10

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) +9
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

这个我想更好用一些也不用声明之类的，不过我只在EXCELL中用哦，很好用的！！

#11

楼主的机器确实牛...

#12

引用 6 楼 clear_zero 的回复:

for i=1 to 10
    执行语句1
    StartTime = Timer    ' 设置开始暂停的时刻。
    Do While Timer < StartTime + 3 '暂停3秒
        DoEvents    ' 将控制让给其他程序。
    Loop
    执行语句2
next

请教一下：在Do循环里的DoEvents 有优势吗？

#13

呵呵

#14

路过顶顶

#15

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim jia As Integer
Private Sub Command1_Click()
jia = 0
For i = 1 To 20
jia = jia + 1
Label1.Caption = jia
Sleep (3000)
DoEvents
Next
Debug.Print "执行完毕"End Sub

发现一个古怪问题，Command1一步执行之后，开始计数时，再点几下Command1时，jia的值并不为0,好像并没有执行jia = 0 语句

#16

你应该

Label1.Caption = jia 

DoEvents 

DoEvents 

jia = jia + 1

Sleep (3000)

#17

谢谢啊 16楼老大
原来代码先后顺序不对。
你去我发的贴顶一下，我去结贴。

#18

我要的是For i = 1 To 20 时结束过程。我说的这种情况。for 的终值会大于20

#19

路过顶顶

#20

我对SLEEP函数不生效更感兴趣........

LZ能不能详细测试一下?

#21

延时函数 API的 sleep就可以的了...

#22

引用 12 楼 xbin_2009 的回复:

引用 6 楼 clear_zero 的回复:
for i=1 to 10
    执行语句1
    StartTime = Timer    ' 设置开始暂停的时刻。
    Do While Timer < StartTime + 3 '暂停3秒
        DoEvents    ' 将控制让给其他程序。
    Loop
    执行语句2
next

请教一下：在Do循环里的DoEvents 有优势吗？

这点我也不明白？？也想问个究竟

#23

引用 15 楼 zhuhuofong 的回复:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim jia As Integer
Private Sub Command1_Click()
jia = 0
For i = 1 To 20
jia = jia + 1
Label1.Caption = jia
Sleep (3000)
DoEvents
Next
Debug.Print "执行完毕"End Sub

发现一个古怪问题，Command1一步执行之后，开始计数时，再点几下Command1时，jia的值并不为0,好像并没有执行jia = 0 语句

怎么运行那么慢？！！这是什么问题

#24

15楼的问题：
sleep 是让CPU休息，什么也不干
oevents是让CPU去听别人的指派，腾出精力去干别的去，这二个不要同时用啊

#25

引用 24 楼 zydscaline 的回复:

15楼的问题：
sleep 是让CPU休息，什么也不干
oevents是让CPU去听别人的指派，腾出精力去干别的去，这二个不要同时用啊

Sleep是告诉OS在一定时间内暂时不分配CPU时钟给当前线程
DoEvents通常用在循环等作业当中,用于处理消息,相当于执行一次
PeekMessage + TranslateMessage + DispatchMessage

#26

顶楼上

#27

关于Doevents函数的解释和例子

http://tieba.baidu.com/f?kz=164436320

#28

Sleep不起作用？
第一次听说。
不过有你有很多方法可以实现Sleep的功能。

推荐阅读

object
编写有趣的VBScript恶作剧脚本

本文将介绍如何编写一些有趣的VBScript脚本，这些脚本可以在朋友之间进行无害的恶作剧。通过简单的代码示例，帮助您了解VBScript的基本语法和功能。 ... [详细]

蜡笔小新 2024-12-28 09:46:23
range
Python 的 10 个开发技巧！太实用了

1.如何在运行状态查看源代码？查看函数的源代码，我们通常会使用IDE来完成。比如在PyCharm中，你可以Ctrl+鼠标点击进入函数的源代码。那如果没有IDE呢？当我们想使用一个函 ... [详细]

蜡笔小新 2024-12-27 18:36:54
cmd
获取计算机硬盘序列号的方法与实现

本文介绍了如何通过编程方法获取计算机硬盘的唯一标识符（序列号），并提供了详细的代码示例和解释。此外，还涵盖了如何使用这些信息进行身份验证或注册保护。 ... [详细]

蜡笔小新 2024-12-26 11:22:11
hook
解决Uploadify在IE浏览器中的兼容性问题

本文详细介绍了如何解决Uploadify插件在Internet Explorer（IE）9和10版本中遇到的点击失效及JQuery运行时错误问题。通过修改相关JavaScript代码，确保上传功能在不同浏览器环境中的一致性和稳定性。 ... [详细]

蜡笔小新 2024-12-27 22:07:40
php
网络链路质量监控：Smokeping部署与配置

本文详细介绍了如何在Linux系统上安装和配置Smokeping，以实现对网络链路质量的实时监控。通过详细的步骤和必要的依赖包安装，确保用户能够顺利完成部署并优化其网络性能监控。 ... [详细]

蜡笔小新 2024-12-27 19:31:05
export
Yii2 GridView 实现列表页数据直接编辑的完整指南

本文详细介绍了如何使用 Yii2 的 GridView 组件在列表页面实现数据的直接编辑功能。通过具体的代码示例和步骤，帮助开发者快速掌握这一实用技巧。 ... [详细]

蜡笔小新 2024-12-27 16:27:52
eval
分页插件3指定到某一页

前言--页数多了以后需要指定到某一页（只做了功能，样式没有细调）html ... [详细]

蜡笔小新 2024-12-27 15:19:01
range
Akka BackoffSupervisor的深入解析与实践

本文详细介绍了Akka中的BackoffSupervisor机制，探讨其在处理持久化失败和Actor重启时的应用。通过具体示例，展示了如何配置和使用BackoffSupervisor以实现更细粒度的异常处理。 ... [详细]

蜡笔小新 2024-12-27 15:04:09
go
移动 UI 设计基础：打造简洁高效的用户界面

本章将深入探讨移动 UI 设计的核心原则，帮助开发者构建简洁、高效且用户友好的界面。通过学习设计规则和用户体验优化技巧，您将能够创建出既美观又实用的移动应用。 ... [详细]

蜡笔小新 2024-12-27 08:43:40
split
深入理解Python的os和sys模块

本文详细解析了Python中的os和sys模块，介绍了它们的功能、常用方法及其在实际编程中的应用。 ... [详细]

蜡笔小新 2024-12-26 22:04:19
instance
解决 Swift 中 '!' 一元运算符无法应用于 '()' 类型的问题

在 Swift 编程中，遇到错误提示“一元运算符 '!' 不能应用于 '()' 类型的操作数”，通常是因为尝试对没有返回值的方法或函数应用逻辑非运算符。本文将详细解释该错误的原因，并提供解决方案。 ... [详细]

蜡笔小新 2024-12-26 18:42:22
object
POP 绘图库 Asana/Drawsana 源代码看看

iOS绘制就是采集点，贝塞尔曲线得到形状，绘图上下文去渲染出来AsanaDrawsana图形库，设计的挺好他可以画多种图形， ... [详细]

蜡笔小新 2024-12-13 14:10:31
instance
Android开发技巧：实现带描边的圆角图片

本文介绍了一种在Android应用中实现带描边的圆角图片的方法。通过使用BitmapShader类，开发者可以轻松地为图片添加圆角和描边效果，提升应用的视觉体验。 ... [详细]

蜡笔小新 2024-12-13 13:19:00
instance
Android 自定义指南针视图实现

本文介绍了如何在Android应用中自定义绘制指南针视图，包括方位角的计算、不同方向的颜色区分以及视图随手势移动的功能实现。 ... [详细]

蜡笔小新 2024-12-12 19:01:57
php
Elasticsearch 字段类型修改策略

在Elasticsearch中，映射（mappings）定义了索引中字段的结构，类似于传统数据库中的表结构。虽然Elasticsearch支持字段的增删，但直接修改字段类型是不允许的。本文介绍了一种通过创建新索引并迁移数据的方式来改变字段类型的方法。 ... [详细]

蜡笔小新 2024-12-12 14:19:48

beitianmolang

这个家伙很懒，什么也没留下！

Tags | 热门标签

RankList | 热门文章