请问vb里有没有等到时间的函数

[felix1999]

比如说运行到某一行等待3秒之后再接着运行，应该有这样的函数吧？

[闲情漫步]

用time控件

[hxkuse]

form_load()
timer.interval=3000
timer.enabled=false
end sub

sub mysub()
......
timer.enabled=true
timer.enabled=false
.......
end sub

[seehill]

sleep

[doudou8090]

API:Sleep

[soec]

sleepex

[haipingma]

wait

[haipingma]

写一个wait子程序,用timer控件

[Sunron128]

Private Sub Wait(byval dtTime as Integer)
dim NowTime as Date

NowTime = Time
do while true
if DateDiff("S",NowTime,Time) + 1 = dtTime then Exit do
loop
End Sub

[dsclub]

API:Sleep

[wouldfly]

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

用法sleep 1500

[dsclub]

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


Private Sub Wait(ByVal Interval As Long)
'---------------------

Call Sleep(Interval)


'---------------------
End Sub