VB6.0中如何设置延时

方法很多个。

可以使用API函数Sleep

Private Declare Sub Sleep Lib "kernel32DLL" (ByVal dwMilliseconds As Long)

调用比如睡眠1秒:Sleep(1000)

另外还有一种延时方法，即获取当前系统时间+延时时间=等待结束时间，等到了等待结束时间到了就往下执行。

Private Declare Function GetTickCount Lib "kernel32" () As Long

'自编应用函数

Private Sub WaitForMS(MillSeconds As Long)

Dim S as Long

S=GetTickCount+MillSeconds

Do

If GetTickCount=S Then Exit Sub

Loop

End Sub

这个函数的调用跟上面的相似，单位是ms。

延迟的话其实用timer是可以的。不过要改变思路。。。用数组和引索值来调用。。下面简单写个思路

我们把i 和 j 的值作为全局变量

然后把循环体放在timer()内部，不过要把for循环体改为do……Loop的循环体

然后在循环体内部当需要暂停的时候就用exit sub 退出timer()循环体，而循环的i 和 j 则仍然储存在全局变量中，当timer()再次调用的时候会根据i 和j 的值继续循环

不过要注意的是

Private Sub Timer1_Timer()

timer1Enabled =False '必须把这一步放在开头，不然循环还没结束又调用的话后果。。。

do

do

……

if …… then

timer1Enabled =true'在想暂停的时候，调用exit sub 前再打开timer的循环

exit sub

end if

j=j+1

loop until j>10000

i=i+1

loop until i>docAlllength

……

end sub

我大概就是这个思路，具体的还需要你自己改。。。有时候换个想法可以解决很多问题的

以上就是关于VB6.0中如何设置延时全部的内容，包括:VB6.0中如何设置延时、vb代码关于延时 求助、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！