VB uygulamasının birden çok örneğini açmayı engelle

Question

MS Access veritabanına bağlı VB6 uygulamasında çalışıyorum, bu yüzden kullanıcının uygulamamın birden çok örneğini açmasına izin vermek istemiyorum çünkü bu çakışmalar oluşturabilir & veri tabanı. Ayrıca, kullanıcı başka bir örneği açmaya çalışırsa, şu anda çalışan örnek odaklanmalıdır. Buna nasıl ulaşabilirim? Şimdiden teşekkürler .......... :-)

Answer 1

Kullanım 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