西西软件园多重安全检测下载网站、值得信赖的软件下载站!
软件
软件
文章
搜索

首页编程开发其它知识 → VB中的延时函数:自定义do...loop循环

VB中的延时函数:自定义do...loop循环

相关软件相关文章发表评论 来源:U盘杀毒精灵官网时间:2011/7/29 10:39:41字体大小:A-A+

作者:反黑卫士点击:641次评论:1次标签: VB6.0

msdn for vb6.0中文精简版
  • 类型:编程辅助大小:27.6M语言:中文 评分:2.5
  • 标签:
立即下载
 1、新建一个标准模块

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)

即可!

    相关评论

    阅读本文后您有什么感想? 已有人给出评价!

    • 8 喜欢喜欢
    • 3 顶
    • 1 难过难过
    • 5 囧
    • 3 围观围观
    • 2 无聊无聊

    热门评论

    最新评论

    发表评论 查看所有评论(1)

    昵称:
    表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
    字数: 0/500 (您的评论需要经过审核才能显示)