【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB 最简单 延时代码》，欢迎阅读！
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毫秒
高手请路过。。。。
本文来源：https://www.wddqxz.cn/dff00475852458fb770b5665.html
2022-07-12
