防止打开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