求个延迟函数(送20分)
如果我点了command1后延迟10秒后 出现 提示框
我在command1中加入sleep(10000)
可是这延迟10秒的过程中 程序象死了一样什么都不做 好象这函数消耗也很大吧
有没有比这个好的函数 在延迟过程中不影响别的工作
[解决办法]
Public Sub Wait(delay As Single) '等待delay秒种
'单位是秒,例如3.5s
starttime! = Timer
Do Until Timer > = starttime! + delay
doevents '加上这句试试 <- 这句和下面一句都很重要
sleep 5 ' <-
Loop
End Sub
[解决办法]
Public Sub Delay(ByVal MilliSec As Integer)
Dim start
Dim Pausetime As Double
Pausetime = MilliSec / 1000
start = Timer
Do While Timer < start + Pausetime
If bStop = True Then Exit Sub
DoEvents
Loop
End Sub
调用Delay
格式为: Delay 10 '延迟10秒