如何让一个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的功能。

推荐阅读

cmd
UE4 中的距离场技术详解

本文将深入探讨 Unreal Engine 4 (UE4) 中的距离场技术，包括其原理、实现细节以及在渲染中的应用。距离场技术在现代游戏引擎中用于提高光照和阴影的效果，尤其是在处理复杂几何形状时。文章将结合具体代码示例，帮助读者更好地理解和应用这一技术。 ... [详细]

蜡笔小新 2024-11-19 18:21:03
php
IC卡操作功能实现

本文介绍了如何通过C#语言调用动态链接库（DLL）中的函数来实现IC卡的基本操作，包括初始化设备、设置密码模式、获取设备状态等，并详细展示了将TextBox中的数据写入IC卡的具体实现方法。 ... [详细]

蜡笔小新 2024-11-21 11:02:19
fetch
PHP与MySQL实现高效分页查询

本文探讨了如何在PHP与MySQL环境中实现高效的分页查询，包括基本的分页实现、性能优化技巧以及高级的分页策略。 ... [详细]

蜡笔小新 2024-11-22 05:45:48
filter
Delphi XE2 之 FireMonkey 入门(19) - TFmxObject 的子类们(表)

td{border:1pxsolid#808080;}参考:和FMX相关的类(表)TFmxObjectIFreeNotification ... [详细]

蜡笔小新 2024-11-21 22:35:24
io
Windows Phone 弹出窗口实现方案

在当前版本的 Silverlight for Windows Phone 中，由于缺乏对 ChildWindow 的支持，开发者需要采用其他方法来实现弹出窗口的功能。本文将探讨几种有效的解决方案。 ... [详细]

蜡笔小新 2024-11-21 12:18:32
php
使用参数化查询防止SQL注入

本文介绍如何通过参数化查询来防止SQL注入攻击，确保数据库的安全性。示例代码展示了在C#中使用参数化查询添加学生信息的方法。 ... [详细]

蜡笔小新 2024-11-18 15:53:22
php
Oracle VM VirtualBox 使用指南：创建静态网页及高级功能

本文详细介绍了如何在Oracle VM VirtualBox中实现主机与虚拟机之间的数据交换，包括安装Guest Additions增强功能，以及如何利用这些功能进行文件传输、屏幕调整等操作。 ... [详细]

蜡笔小新 2024-11-21 18:13:22
io
Struts2 + json+ jquery 实现三级联动action和jsp代码竟然有小红叉，提示缺双引号，检查了转义符号也没缺啊，求解

publicclassBindActionextendsActionSupport{privateStringproString;privateStringcitString; ... [详细]

蜡笔小新 2024-11-21 16:25:41
io
Requests库的基本使用方法

本文介绍了Python中Requests库的基础用法，包括如何安装、GET和POST请求的实现、如何处理Cookies和Headers，以及如何解析JSON响应。相比urllib库，Requests库提供了更为简洁高效的接口来处理HTTP请求。 ... [详细]

蜡笔小新 2024-11-21 13:17:41
process
深入解析SpringMVC中的HandlerMapping机制

本文将从基础概念入手，详细探讨SpringMVC框架中DispatcherServlet如何通过HandlerMapping进行请求分发，以及其背后的源码实现细节。 ... [详细]

蜡笔小新 2024-11-20 19:24:42
default
深入解析 Bootstrap Table 的使用技巧

本文详细介绍了如何利用 Bootstrap Table 实现数据展示与操作，包括数据加载、表格配置及前后端交互等关键步骤。 ... [详细]

蜡笔小新 2024-11-20 17:21:26
php
笔记本电脑实用快捷键指南

本文详细介绍了笔记本电脑上多种实用的快捷键，包括屏幕调整、图形设置、分辨率更改、驱动更新、导航操作、音量控制及屏幕锁定等，旨在帮助用户更高效地使用笔记本电脑。 ... [详细]

蜡笔小新 2024-11-20 17:06:52
php
如何在Python中调用C++代码

本文介绍了一种方法，通过使用Python的ctypes库来调用C++代码。具体实例为实现一个简单的加法器，并详细说明了从编写C++代码到编译及最终在Python中调用的全过程。 ... [详细]

蜡笔小新 2024-11-20 16:35:59
io
C# 中创建和执行存储过程的方法

本文详细介绍了如何使用 C# 创建和调用 SQL Server 存储过程，包括连接数据库、定义命令类型、设置参数等步骤。 ... [详细]

蜡笔小新 2024-11-19 19:55:59
io
Spring Boot使用AJAX从数据库读取数据异步刷新前端表格

　　近期项目需要是实现一个通过筛选选取所需数据刷新表格的功能，因为表格只占页面的一小部分，不希望整个也页面都随之刷新，所以首先想到了使用AJAX来实现。　　以下介绍解决方法（请忽视 ... [详细]

蜡笔小新 2024-11-19 10:11:02

beitianmolang

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

Tags | 热门标签

RankList | 热门文章