Re: [問題] VB6.0中程式暫停n秒的指令
※ 引述《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
推
07/14 16:26, , 1F
07/14 16:26, 1F
討論串 (同標題文章)