Prevent Öffnung mehr Instanz von VB-Anwendung

Question

Ich arbeite an VB6-Anwendung, die auf MS Access-Datenbank verbunden ist, so dass ich Benutzer zu öffnen mehr Instanzen von meiner Anwendung nicht zulassen will, da diese Konflikte schaffen und alte verbundene Datenbank. Auch wenn der Benutzer versucht, eine andere Instanz zu öffnen, die aktuell ausgeführte Instanz muss fokussiert sein. Wie kann ich das erreichen? Vielen Dank im Voraus ..........: -)

Answer 1

Verwenden 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