[VB] 防止程序运行多个实例

最新推荐文章于 2015-04-21 14:53:43 发布

原创最新推荐文章于 2015-04-21 14:53:43 发布 · 1.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #数据库 #编程 #basic

编程专栏收录该内容

92 篇文章

订阅专栏

博客介绍了防止程序运行多个实例的必要性，如监视文件夹程序、前端数据库程序，多实例运行可能导致数据错误。还给出了使用App.PrevInstance属性防止多实例运行的方法，在程序Load事件中判断该属性值，若为True可显示信息、激活已有实例，并给出了相应代码示例。

http://www.zdnet.com.cn/developer/code/story/0,3800066897,39250501,00.htm
有时候，允许程序启动多个实例并不是一件好事。比如一个程序用来监视某个文件夹并跟踪文件夹中的新文件，这种程序只要一个实例就足够了。同样，如果一个前端数据库程序运新了多个实例，对数据库中相同内容的同时操作有可能导致数据错误。

要防止程序运行多个实例，只要使用App.PrevInstance属性就可以了。当有另一个实例正在运行时，该属性会返回True。你可以在程序的Load事件中调用这个属性进行判断。如果返回值为True，你可以向用户显示一条信息，更进一步，在关闭这个新实例前，还可以激活已有的实例，这也是目前大部分程序采用的方式。下面的代码可以在必要时显示一条警告信息：

If App.PrevInstance Then
    MsgBox "Another instance of this program is already open."
    AppActivate App.Title
    Unload Me
End If

作者：Peter Aitken。自从Visual Basic 1.0版问世以来，Peter Aitken就一直在使用VB编程。他已经编写过很多关于VisualBasic以及其他计算机和编程方面的书籍和杂志文章了。

=======================

另：http://member.netease.com/~kenj/JA.htm
以下代码可以直接打开已经存在的应用。(在最小化时好象有问题。)

If App.PrevInstance Then
sAppTitle = App.Title
App.Title = "DUMMY_"
AppActivate sAppTitle
SendKeys "%{ }{Enter}", True
End If