If App.PrevInstance Then
MsgBox("已经运行,不能重复运行", vbCritical, "提醒")
End
End if
这个代码只能检测当前的程序是否运行
如果你把程序复制到了别的位置,当前位置改个名字,就可以正常运行
这个代码一般用作于带有注册表的程序,亦或是有明显程序标记位的程序,这样可以有效的防止配置文件异常.
当前博客一日一文,仅仅是个人没事记录用
If App.PrevInstance Then
MsgBox("已经运行,不能重复运行", vbCritical, "提醒")
End
End if
这个代码只能检测当前的程序是否运行
如果你把程序复制到了别的位置,当前位置改个名字,就可以正常运行
这个代码一般用作于带有注册表的程序,亦或是有明显程序标记位的程序,这样可以有效的防止配置文件异常.
当前博客一日一文,仅仅是个人没事记录用