Re: [VBA ] 詢問等待Application.Wait
Public Sub MySleep(ByVal LSleepTms As Integer)
Dim i As Integer
For i = 1 To LSleepTms / 50
My.Application.DoEvents()
System.Threading.Thread.Sleep(10)
My.Application.DoEvents()
System.Threading.Thread.Sleep(10)
My.Application.DoEvents()
System.Threading.Thread.Sleep(10)
My.Application.DoEvents()
System.Threading.Thread.Sleep(10)
My.Application.DoEvents()
System.Threading.Thread.Sleep(10)
Next i
End Sub
傳進MySleep的值是用整數 單位是亳秒 500 就是0.5秒囉 ~
※ 引述《SuLaPKLa (= =)》之銘言：
: 小弟的程式寫入加入下行程式 以暫停一秒鐘
: Application.Wait (Now + TimeValue("0:00:01"))
: 請問各位有其他寫法可以讓她
: 只暫停半秒嗎??? 因為一秒有點久 感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.110.253.9
討論串 (同標題文章)