正文

vb.net等待函数,vbs等待语句

IP云
IP云V管理员/3 阅读
11/27
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net 等待上个命令执行完成,进行下个命令

送你一个延迟函数单位毫秒

Public Sub delay(ByRef Interval As Double)

On Error Resume Next

Dim time As DateTime = DateTime.Now

Dim Span As Double = Interval * 10000000 '因为时间是以100纳秒为单位。

While ((DateTime.Now.Ticks - time.Ticks) Span)

Application.DoEvents()

End While

End Sub

相关问答

Q1: vb.net 等待命令怎么写

@echooffechohellonulping127.1/10echoworldpause::输出hello，延迟10秒后，输出world。::将/10，改为/100就延迟100秒。举一反三，你懂得……

Q2: VB.NET加载时等待光标

        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状

        '加载耗时较长的函数

        Me.Cursor = System.Windows.Forms.Cursors.Default '光标恢复正常