作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [问题] VB6.0中程式暂停n秒的指令
时间Fri Jul 14 12:58:50 2006
※ 引述《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
1F：推 winess:感谢! 07/14 16:26