很多基于Windows系统的程序,包括用VB编写的简单程序,都允许用户在同时启动多个程序实例。比如,用户可以同时开启多个记事本窗口,对不同的文本文件进行编辑。
但有时候,允许程序启动多个实例并不是一件好事。比如一个程序用来监视某个文件夹并跟踪文件夹中的新文件,这种程序只要一个实例就足够了。同样,如果一个前端数据库程序运新了多个实例,对数据库中相同内容的同时操作有可能导致数据错误。
要防止程序运行多个实例,只要使用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以及其他计算机和编程方面的书籍和杂志。