ms-access - 声明和调用 Sleep API

Question

我已经阅读了许多关于实现 sleep API 的线程，但是大多数都比我在知识方面领先一步，我们将不胜感激。

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

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

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

但是，我对这应该去哪里感到困惑。它应该放在它自己的模块中还是可以在宏模块的顶部说明？

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

Call Sleep (1000)

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

Answer 1

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

您可以省略 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

没有声明 sleep 子的替代方案是

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