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

Question

我的 VB6 应用程序由 MS Access 数据库支持。允许用户打开应用程序的多个实例会产生冲突并更改连接的数据库。

如果用户尝试打开新实例，理想的解决方案是关注现有实例。

我怎样才能做到这一点？

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