防止打開VB應用程序的多個實例

Question

我正在處理連接到MS Access數據庫的VB6應用程序，所以我不想讓用戶打開我的應用程序的多個實例，因爲這會造成衝突& alter connected數據庫。另外，如果用戶試圖打開另一個實例，那麼當前正在運行的實例必須關注。我怎樣才能做到這一點？在此先感謝......... :-)

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