作者JingTeng (爱恨惹是非)
看板Visual_Basic
标题Re: [VB6 ] Timer问题
时间Sat May 26 22:27:43 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
参考看看...
=========================
'属性设定
'Timer1.Enable = False
'Timer1.Interval = 1000 '设定为1秒
'另外再设个全域变数作Count_1用
'全域变数interval为你所要的延迟时间
=========================
If xxx then (xxx为条件成立)
interval = (a / b - c*100)
Count_1 = 0
Timer1.Enable = True
End If
Private sub Timer1.timer
Count_1 = Count_1 + 1
If (Count_1 > Interval)
Timer1.Enable = False
'副程式
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.57.100.126
1F：→ JingTeng:不确定能不能用...请试试看... 05/26 22:30
※ 编辑: JingTeng 来自: 61.57.100.126 (05/26 22:41)
2F：→ JingTeng:刚刚试过...应该是OK 05/26 22:44
3F：推 jujuo:感谢你~~!! 05/27 00:11