你可以利用App对象的PrevInstance属性来轻易达到你的目的。
我们可以在程序打开时(Main()中)加入以下代码来验证:
IfApp.PrevInstanceThen
MsgBox(“程序已经运行,不能再次装载。”),vbExclamation
ExitSub
EndIf->
你可以利用App对象的PrevInstance属性来轻易达到你的目的。
我们可以在程序打开时(Main()中)加入以下代码来验证:
IfApp.PrevInstanceThen
MsgBox(“程序已经运行,不能再次装载。”),vbExclamation
ExitSub
EndIf->