本文介绍了一种防止应用程序被重复启动的方法，通过使用APP物件检查是否有先前的实例正在运行。如果发现已有实例，则提示用户并阻止新实例的启动。
如何避免程式重复执行？（侦测是否存在前一副本，若有，则结束目前新启动的程式）。使用者在启动程式后，有时会将程式缩小在工作列上，之后要用时，又会重新启动一次程式，资料库程式有时会因此造成资料错乱！若您不希望使用者重复启动程式，您可以使用 APP 物件来判断，方法如下：
Private Sub Form_Load()Sub Form_Load()
If App.PrevInstance Then ''检视前一版本
MsgBox "此程式已经在执行中！", 48
End
End If
End Sub
Private Sub Form_Load()Sub Form_Load() If App.PrevInstance Then ''检视前一版本 MsgBox "此程式已经在执行中！", 48 End End If End Sub
扫一扫
1165
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
