昆明医学院排名:vb中如何让循环语句慢下来

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/28 20:49:21
比如:
do
i=i+1
loop until i>100
我想在1秒的时间进行第二次循环,就是说此语句在100秒钟完成,如何添加控制

用api函数 很好用的
sleep(n)‘n中输入的数字是毫秒。

在api浏览器里查一下具体声明的格式,复制到模块里
在任何地方就能调用。
把sleep(n)写在循环体里(只写1次)就可以。
我做课件也要循环慢点,就用这个方法

多加几个doevents
doevents 是转交系统控制权。另外的方法就是用api做延时了 seelp

比如:
do
doevents
i=i+1
doevents
'...
loop until i>100

多加几个doevents
doevents 是转交系统控制权。另外的方法就是用api做延时了 seelp
用Timer控件控制比较方便。
用Timer控件控制比较方便。
用Timer控件控制比较方便。
用Timer控件控制比较方便。

比如:
do
doevents
i=i+1
doevents
'...
loop until i>100

sleep

dim Time1 as date

do
if DateDiff ("S",time(),time1)=1 then
i=i+1
endif
doevents
loop until i>100

///这样就行了。

在循环中增加一个时间计算,使用系统的时间比控件Timer要准确的多,你试一下下面的这个修改,我已经调试通过:

Dim StartTime As Long, EndTime As Long, i As Long
Me.Show
Do
StartTime = Timer
EndTime = Timer
Do While EndTime - StartTime < 1
EndTime = Timer
DoEvents
Loop
i = i + 1
Label1 = i
Loop Until i > 100