百褶长裙:VB在代码中如何拖延时间

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/27 13:50:57

Private Sub WaitTime(xt As Single) '停留时间
Dim starttime As Single
starttime = Timer
Do Until (Timer - starttime) > xt
Loop
End Sub

'然后在要延时的地方写上时间,比如要延一秒
waittime 1

做一个循环,

dim i as integer
i=0
do while i<=99999999
i=i+1
loop

先用time函数获得当前时刻,用变量存贮当前时间,当time大于变量一定数值时,开始运行程序。

问题都不清楚,是不是指打开一个窗口,你想要它延迟打开呀?

放个TIMER控件