Empêcher l'ouverture de plusieurs instances de l'application VB

Question

Je travaille sur l'application VB6, qui est connectée à la base de données MS Access, donc je ne veux pas permettre à l'utilisateur d'ouvrir plusieurs instances de mon application car cela créera des conflits & base de données. En outre, si l'utilisateur tente d'ouvrir une autre instance, l'instance en cours d'exécution doit être mise au point. Comment puis-je atteindre cela? Merci à l'avance .......... :-)

Answer 1

utilisation 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