VB2005 延时程序

来源:互联网 发布:淘宝装修店铺好弄吗 编辑:程序博客网 时间:2024/05/16 07:27
   Public Sub DelayTime(ByVal DelayMsTime As Short) '定量延时程序
        Dim TimeDelay As Long
        TimeDelay = GetTickCount
        Do
            System.Windows.Forms.Application.DoEvents()
        Loop Until GetTickCount - TimeDelay > DelayMsTime
    End Sub
原创粉丝点击