# Re: 如何使程式闲置五分钟就自动结束呢

Posted by 小v on June 22, 1999 at 10:01:35:

In Reply to: 如何使程式闲置五分钟就自动结束呢 posted by mosa on June 21, 1999 at 18:06:30:

: 如何使程式闲置五分钟就自动结束呢

1.用Timer元件,Interval=5000
2.设一模组公用变数, TimeLoop=0
3.在Sub Timer1_Timer()内
TimeLoop=TimeLoop+5
if TimeLoop>300 then
UnLoad me
endif
4.在Form以及Form内所有元件的MouseMove内加上TimeLoop=0, 以及所有KeyPress(或KeyDown)内加上TimeLoop=0, 以便让键盘或滑有动作时就将计时变数归零

这样就可以达到你的要求了, 虽然不是刚好五分钟, 但差几秒应该没什么大碍吧!

Follow Ups: