防止打开VB应用程序的多个实例

Question

我正在研究连接到MS Access数据库的VB6应用程序，所以我不想让用户打开我的应用程序的多个实例，因为这会产生冲突。改变连接数据库。此外，如果用户尝试打开另一个实例，则必须关注当前运行的实例。我怎样才能达到这个目的？在此先感谢..........： - ）

Answer 1

使用App.PrevInstance：

'this code would be in a bas module for start up.'
Private Sub main()
    'Check for previous instance and exit if found.'

    Dim rc As Long

    If App.PrevInstance Then
        rc = MsgBox("Application is already running", vbCritical, App.Title)
        Exit Sub
    Else
        frmMain.Show
    End If

End Sub