防止自身被多次运行

 由于WINDOWS的多任务处理功能， 有些程序可能打开后忘记了，下次用时还可能再打开，这样做会占用系统资源降低系统效率。<br>为了防止自身被多次运行，可利用VB应用对象提供的PrevInstance属性来检测内存中是否已有一个自身的副本，若有则给出提示<br>后结束。一般将检测代码放在FORM＿LOAD（）中，因为程序一运行就要检测。<br>代码如下：<br>sub form＿load（）<br>if App．PrevInstance then<br>msg＄＝App．exename ＆ ”has already run”<br>msgbox msg＄，48 ’给出程序已运行的提示和一惊叹号以示警告<br>end<br>endif<br>end sub<br>