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