重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
送你一个延迟函数单位毫秒
网站建设哪家好,找创新互联!专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了多伦免费建站欢迎大家使用!
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
@echooffechohellonulping127.1/10echoworldpause::输出hello,延迟10秒后,输出world。::将/10,改为/100就延迟100秒。举一反三,你懂得……
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状
'加载耗时较长的函数
Me.Cursor = System.Windows.Forms.Cursors.Default '光标恢复正常