VB中用什么来延时？？？？？？？？

Question

VB中用什么来延时？？？？？？？？

Answer 1

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

Answer 2

延时??自己谢啊,我这边就有,这样的:
Public Sub Delay(HowLong As Date)   '延时
   Dim temptime As Date
   temptime = DateAdd("s", HowLong, Now)
    While temptime > Now
        DoEvents '让 windows 去处理其他事
    Wend
End Sub

Answer 3

Public Declare Function GetTickCount Lib "kernel32" () As LongPublic Sub My_Delay(Num As Long)
    Dim T As Long
    Dim B As Long
    Dim Exit_Flag As Boolean
    
    Exit_Flag = False
    T = GetTickCount
    Do
        DoEvents
        B = GetTickCount - T
        If B < 0 Then
            T = GetTickCount
        ElseIf B >= Num Then
            Exit_Flag = True
        End If
    Loop Until Exit_Flag = True
End Subprivate sub command1_click
  my_delay(1000)  '延时1000毫秒
end sub

Answer 4

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub command1_click()
  Debug.Print Now
  Call Sleep(10000)  '延?10秒
  Debug.Print Now
End Sub

Answer 5

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
在需要延時的地方加  sleep(1)