VB延时函数是什么意思?

 我来答
Steven_Tianjin
高粉答主

2018-03-09 · 关注我不会让你失望
知道顶级答主
回答量:11万
采纳率:80%
帮助的人:1.4亿
展开全部
在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它):
1.使用Windows API函数Sleep
新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1 = "sleep begin"
Sleep 3000
Text1 = "sleep end"
End Sub
按F5执行,按下Command1按钮,程序停止执行,3秒钟内不对用户的操作做出反应,并且Text1里的内容并没有发生改变。这是怎么回事呢?原来,Sleep函数功能是将调用它的进程挂起dwMilliseconds毫秒时间,在这段时间内,此进程不对用户操作做出反应,程序中虽然将Text1的Text属性改成Sleep begin,但还没等完成对屏幕的更新进程就被挂起了,对用户来说程序象是死机一样。所以这种方法虽然简单,但并不适用。

2.使用Timer()函数
这是用的最多的一种方法,也是在VB联机手册中所推荐的。添加一个CommandButton控件,再将以下代码添加到代码窗口中:
Private Sub Command2_Click()
Dim Savetime As Single
Text1 = "Timer begin"
Savetime = Timer '记下开始的时间
While Timer < Savetime + 5 '循环等待
DoEvents '转让控制权,以便让操作系统处理其它的事件
Wend
Text1 = "Timer ok"
End Sub
这种方法虽然也很简单,但却有有一个致命缺陷,那就是Timer函数返回的是从午夜开始到现在经过的秒数。所以Timer返回的最大值也只是60*60*24-1秒,如果从一天的23:59:58秒开始计时等待5秒,那么程序会永远地循环下去。要进行改良,就要加上判断是否又开始了新的一天,那岂不是太麻烦。下面给大家推荐另一个Windows API函数。

3.使用Windows API函数timeGetTime()
timeGetTime函数没有参数,返回值是从开机到现在所经历的毫秒数,这个毫秒数是非周期性递增的,所以不会出现Timer()函数出现的问题,而且这种方法的精确性高于上一种方法。添加一个CommandButton控件,再将以下代码添加到代码窗口中:
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Command3_Click()
Dim Savetime As Double
Text1 = "timeGetTime begin"
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + 5000 '循环等待
DoEvents '转让控制权,以便让操作系统处理其它的事件
Wend
Text1 = "timeGetTime end"
End Sub
好几碗粥Ry
2018-03-09 · TA获得超过1173个赞
知道大有可为答主
回答量:1118
采纳率:0%
帮助的人:900万
展开全部
楼上几位朋友的 如果一调用这个过程会产生程序假死的情况,来看看我写的这个,绝对不会有程序无响应这个状态的.o(∩_∩)o...虽然只是精确到延迟秒的精确度,但是稍微一变通就可精确到毫秒的..

Private Sub Delay(WaitSeconds As Long)
Dim StartTime As Date, sSecond As Long
StartTime = Date + Time
Do Until sSecond >= WaitSeconds
DoEvents
sSecond = DateDiff("s", StartTime, Date + Time)
Loop
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
翰林院里扫地的
2018-03-09 · TA获得超过308个赞
知道小有建树答主
回答量:245
采纳率:0%
帮助的人:0
展开全部
你那种方法实际上延时会比你设置的多1秒(t不等于0的情况下)
准确的可以这样编,不需要Timer控件(下面那个 Timer不是控件名):

Private Sub waittime(delay As Single)
Dim starttime As Single
starttime = Timer
Do Until (Timer - starttime) > delay
DoEvents
Loop
End Sub

补充了一下,这样就没有假死,delay时间可直接设置,精确到0.01秒。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
freaky7090
2018-03-09 · TA获得超过664个赞
知道小有建树答主
回答量:500
采纳率:0%
帮助的人:321万
展开全部
用timer控件岂不简单?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
lijinfeng042
2018-03-09 · TA获得超过679个赞
知道小有建树答主
回答量:725
采纳率:0%
帮助的人:597万
展开全部
一般自己写的都没系统定义的快 也可用API 的sleep
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式