【Access源码示例】延时函数

时　间:2018-12-07 08:27:31
作　者:缪炜   ID：24010  城市：江阴
摘　要:可以自己定义一个延时操作的函数吗？比如一个过程内部，第一条语句执行之后，我想延时几秒后再执行第二条语句？
正　文:

      在程序流程中经常要延时一段时间后再继续往下执行，同时你也可以接着处理其他的事务。

延时代码:

Public Sub Wait(ByVal WaitTime As Single, Optional ByVal vDoEvents As Boolean = True)

    Dim StartTime As Double
    StartTime = Timer
    Do While Timer < StartTime + WaitTime
        If Timer > 86395 or Timer = 0 Then Exit Do
        If vDoEvents Then
          DoEvents
        End If
    Loop
    
End Sub

附件下载:

点击下载此附件

演   示: