14487.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 23 行

HTML
23
字号
<html>
  <head>
    <title>Re: 如何使程式闲置五分钟就自动结束呢</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 如何使程式闲置五分钟就自动结束呢</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by 小v on June 22, 1999 at 10:01:35:<p>
In Reply to: <a href="14466.html">如何使程式闲置五分钟就自动结束呢</a> posted by mosa on June 21, 1999 at 18:06:30:<p>
: 如何使程式闲置五分钟就自动结束呢<p>1.用Timer元件,Interval=5000<br>2.设一模组公用变数, TimeLoop=0<br>3.在Sub Timer1_Timer()内<br>  TimeLoop=TimeLoop+5<br>  if TimeLoop>300 then<br>     UnLoad me<br>  endif<br>4.在Form以及Form内所有元件的MouseMove内加上TimeLoop=0, 以及所有KeyPress(或KeyDown)内加上TimeLoop=0, 以便让键盘或滑有动作时就将计时变数归零<p>这样就可以达到你的要求了, 虽然不是刚好五分钟, 但差几秒应该没什么大碍吧!<p><p><p>  <br>  <p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 14487-->
</ul><!--end: 14487-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?