作者day73812 (小进步喔~)
看板Visual_Basic
标题Re: [VBA ] 询问等待Application.Wait
时间Thu Jun 30 22:25:15 2011
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