首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

求个延迟函数(送20分),该如何处理

2012-02-23 
求个延迟函数(送20分)如果我点了command1后延迟10秒后出现提示框我在command1中加入sleep(10000)可是这延

求个延迟函数(送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秒

热点排行