2、写入代码
Dim nowtime As Integer
Public Sub Delay(t As Integer)
nowtime = Timer
Do While Timer - nowtime < t
DoEvents
Loop
End Sub
这样一个延时函数就完成了!
工程中需要延时时只需调用该函数
例子:需要延时3秒
call delay(3)
即可!
首页 → 编程开发 → 其它知识 → VB中的延时函数:自定义do...loop循环
相关软件相关文章发表评论 来源:U盘杀毒精灵官网时间:2011/7/29 10:39:41字体大小:A-A+
作者:反黑卫士点击:641次评论:1次标签:
名称大小下载