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 + -
显示快捷键?