Re: [問題] VB6.0中程式暫停n秒的指令

[fumizuki (矇面加菲獅)]

※ 引述《winess (太傻)》之銘言：
: ※ 引述《runtime ()》之銘言：
: : 寫一個Sub
: : Sub Delay(X)'X代表要延遲的秒數
: : T=Timer
: : Do Until(Timer-T>X)
: :    DoEvents
: : Loop
: : End Sub
: : 大概是這樣
: 此時間解析度可以設到ms嗎??
: 感覺此方法的延遲時間無法設到ms級!?

Sub Delay(ByVal ms As Long) '單位毫秒

    Dim X As Double
    X = ms / 1000
    T = Timer
    Do Until(Timer-T>X)
       DoEvents
    Loop

End Sub

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 60.248.175.60
推 winess:感謝!