作者yantchen (球童Yanting)
看板Visual_Basic
标题Re: [VB6 ] Timer问题
时间Sat May 26 20:15:01 2007
※ 引述《jujuo (我是一双鱼~)》之铭言：
: 写了一个条件判断式去延迟一段时间执行副程式
: ===========================
: '属性设定
: 'Timer1.Enable = False
: 'Timer1.Intervel = 0
: ===========================
: if xxxx then
: Timer1.Enable = True
: End if
: -----------------------------
: Private sub Timer1.timer
: Timer.Intervel = (a/b - c*100)*1000
: start '副程式
: Timer.Enable = False
: End sub
: ------------------------------
: 因为我想要延迟的时间是一段数学运算式
: 而且此时间大於65秒
: 请问要怎麽修改程式呢?@@
: 请大家帮帮我Q_Q
不太懂你的意思
你现在是要让(a/b-c*100)*1000=65吗?
如果你要延迟的话
不用timer物件 用timer函数就好
t=timer '纪录现在时间
do
doevents '让VB跑其他物件的程式码
loop until timer>t+65
'延迟65秒以後继续下面的程式
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.167.33.238