39.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 9 行

利用App.PrevInstance防止同一程序执行多次 


　　我们希望防止同一应用程序同时执行多次，其方法是判断App的PrevInstance属性若App.PrevInstance为True，则表示此应用程序在执行中，可以直接结束本此执行，这样就可以了。 
Private Sub Form_Initialize() 
　If App.PrevInstance Then End
End Sub