声明&调用Sleep API

时间:2014-03-11 12:36:08

标签: vba ms-access access-vba ms-access-2010

我已经阅读了很多关于实现Sleep API的线程,但是大多数人都比我在某些指导的知识方面领先一步会非常感激。

我在VBA中有一个宏,我想在步骤之间添加暂停(纯粹是美学而不是功能)但是我正在努力进行基本的声明和调用。

我知道首先我必须声明api,并且代码是......

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
然而,我对这应该去哪里感到困惑。它应该是自己的模块还是宏模块的顶部?

然后调用该函数我只需在...的宏中添加一行

Call Sleep (1000)

如果有人可以帮助解决这个问题并感谢您对我的基本把握的耐心,我将不胜感激。

1 个答案:

答案 0 :(得分:5)

睡眠声明应该放在模块的顶部。标准编码模块。

您可以省略Call,只需使用

即可
Sleep 1000  ' 1 second delay

现有子中的任何地方,所以

Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Main()

    ' wait 3 seconds
    Sleep 3000

End Sub

enter image description here


替代方案而不声明Sleep sub

Application.Wait Now + TimeValue("00:00:03") ' waits 3 seconds