不能再次装载程序
'你可以利用App对象的PrevInstance属性来轻易达到你的目的。
'我们可以在程序打开时(Main()中)加入以下代码来验证:
IfApp.PrevInstanceThen
MsgBox("程序已经运行,不能再次装载。"),vbExclamation
ExitSub
EndIf->
'我们可以在程序打开时(Main()中)加入以下代码来验证:
IfApp.PrevInstanceThen
MsgBox("程序已经运行,不能再次装载。"),vbExclamation
ExitSub
EndIf->
- 上一篇:VB编程经验点滴
- 下一篇:VB中如何实现注册表的读写
精彩图集
精彩文章




