有这种方法吗？各位看看呀！！

[CCL]

在VB中有没有让一行代码延迟执行的方法？如以下：
Picture1(iNumber).Visible = False
xxxxxx
iNumber = iNumber + 3
其中xxxxxx代表延迟执行代码，并能控制时间。
帮帮忙！！ ：（

[robin2]

当然有，比如：
dim a as long,b as long ,c as long
a=time
do
b=time
if b-a>=0 then
c=b-a
else
c=b-a+24*60*60
endif
loop until c>=yourtime

其中，yourtime 是你要延迟的时间，单位是秒。if ---endif 是为了防止时间经过0:00点时time 函数复位为0.

[wulang]

Picture1(iNumber).Visible = False

Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + PauseTime 'PauseTime为暂停的秒数
DoEvents
Loop

iNumber = iNumber + 3

[major2]

用timer控件定时，象wulang说的那样.

[BareHead]

不必用定时器这么麻烦,最简单是调用win api函数sleep(msecond),参数msecond是要暂停的毫秒值.在vb中的具体声明不用我说了吧?

[wulang]

major2:我说的Timer不是Timer控件，而是一个函数

[apollo]

sleep()方法

[lutf]

最简单的就是用Call Sleep(miliseconds),
别忘了在Module中引入
当然，用一些循环和计数器也能完成此功能，不过效率比较低

[Janven]

i = Timer + yourtime ’单位秒，可以为小数
Do
DoEvents '若
Loop While Timer < i

[Janven]

i = Timer + yourtime ’单位秒，可以为小数
Do
DoEvents '若比较短的时间，或希望它不能被打断，可以不加
Loop While Timer < i

[skt642]

56007关注！