Re: [VBA ] 詢問等待Application.Wait

[day73812 (小進步喔~)]

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