timepause.bas

vb做的安装源程序

Attribute VB_Name = "Timepause"
'
'      Excellent code to make the program pause for
'      a time.
'      If you want to use in your code write:
'      timedpause(x) where x is the time in sec.
'      e.g. timedpause(2), then the program will
'      make a pause for 2 seconds.
'
'      Ronnie Staxborn
'      [e-mail]
'
Public exitPause As Boolean


Public Function timedPause(secs As Long)
    Dim secStart As Variant
    Dim secNow As Variant
    Dim secDiff As Variant
    Dim Temp%
    
    exitPause = False 'this is our early way out out of the pause
    
    secStart = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") 'get the starting seconds
    


    Do While secDiff < secs
        If exitPause = True Then Exit Do
        secNow = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") 'this is the current time and Date at any itteration of the Loop
        secDiff = DateDiff("s", secStart, secNow) 'this compares the start time With the current time
        Temp% = DoEvents
    Loop
End Function