VB 延时代码
Vb 中没有专用的延时函数，这一直都是个令人苦恼的事情，虽然有定时器控件，但它相当于一个循环体，很多时候都不方便，所以多数人都是用API函数 sleep 使用方法如下：
先在窗体级或是模块级中加入声明
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 然后在需要延时的过程中调用
Sleep 1000 ‘延时1000毫秒
此方法简单实用，但当在一个循环体中的时候却有些不方便，本人想了一个办法，自己写了一个，方法如下：
选建立一个过程
Private Sub sleep(ByRef n As Long)
Dim x As Long
x = Timer * 1000 + n
Do While x >= Timer * 1000
DoEvents '响应外部程序函数，这个很重要，不能少，不然会出现卡死现象 Loop
End Sub
调用的时候也是跟API函数的方法一样
Sleep 1000 ‘延时1000毫秒
高手请路过。。
[复制链接]
/2 
发表于 2017-1-17 23:30:28
感谢先，看看来的！
.。。。。。。。。。。。