VB中想使程序短时间等待用什么函数？？

[rosa2002411]

想使程序短时间等待用什么函数？？
谢谢!

[netcruiser]

用Timer控件

[SoHo_Andy]

sleep() API 函数

[xtcltky123]

dim time_x as long
time_x = Timer
While Timer - time_x < 你要的等待时间（秒）

Wend

[ahbbnimor]

1 timer控件
2 空循环（里面加doevents避免占cpu100％）

[JoAiron]

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

Private Sub Form_Load()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

End

End Sub

设置timer1 属性

[busisoft]

等待函数
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

[artoksxb]

一般都是用timer控件吧!

[还想懒够]

用API，sleep函数

[laozhaoskinny]

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

在程序中调用
Sleep n 'n 单位毫秒

[yiyezhiqiu]

首先声明Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

例子如 sleep m 'm为你要短暂等待的时间单位毫秒
sleep 5 为等待五毫秒比较精确,推荐使用

[mmcgzs]

用API，sleep函数

[南山明月]

sleep() API 函数
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

在程序中调用
Sleep n 'n 单位毫秒

[kinlin]

Private Function delay(mins%, secs%, Optional ByRef stopflag) As Long
'延时函数
On Error Resume Next
Dim endofdelay
endofdelay = DateAdd("n", mins, Now)
endofdelay = DateAdd("s", secs, endofdelay)
delay = 0
Do While (Now < endofdelay)
DoEvents
If Not IsMissing(stopflag) Then
If stopflag Then
delay = 1
stopflag = False
Exit Do
End If
End If
Loop

End Function

或者用 Sleep