VB6自定义延时函数_nxhujiee

http://blog.sina.com.cn/u/1421777080

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

VB6自定义延时函数

(2022-04-18 09:14:49)

分类： VB

VB6自定义延时函数
━━━━━━━━━━━━━━━━━━━━━━━━━
Option Explicit

Public Sub sleep(m As Integer)          '延时函数sleep
    Dim a As Single
    a = Timer
begin:
    If Timer - a < m Then
        GoTo begin
    End If
End Sub

Private Sub Command1_Click()
    Cls
    Print "hello"
    VBA.DoEvents
    sleep 2
    Print "everybody"
    VBA.DoEvents
    sleep 4
    Print "live you"
End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：vb可变长参数示例－非ParamArray

后一篇：VB6输入代码时自动整理功能修复

新浪BLOG意见反馈留言板　欢迎批评指正