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

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

理想的解决方案是，若用户试图打开一个新实例，那个么就关注现有实例

---

我如何才能做到这一点？

使用

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

---

您需要的术语是“单实例应用程序”。谢谢，这非常有效，现在是否可以将焦点设置为当前实例，而不是显示错误消息？是的，使用

AppActivate

方法-传入应用程序标题栏中的任何内容。