Bonjour,

Au lancement de mon application, je voudrais pouvoir tester si une instance de mon application existe déjà pour ne pas le lancer 2 fois de suite ....

Voici ma procédure:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub PROC_VERIF_INSTANCE()
        Dim i As Integer = 0
 
        Try
            For Each RunningProcess In Process.GetProcessesByName("Gestion De Recrutement")
                i = i + 1
                If i = 2 Then
                    MsgBox("Une instance de Gestion de Recrutement est déjà lancée !", vbCritical)
                    Me.Close()
                    Exit Sub
                End If
            Next
        Catch err As Exception
            MsgBox(err.ToString(), MsgBoxStyle.Critical, "Erreur PROC_VERIF_INSTANCE!")
        End Try
    End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Public Sub New()
 
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Call PROC_VERIF_INSTANCE()
 
    End Sub
Le problème est qu'il m'affiche un rapport d'erreur a envoyer a Microsoft !

Que faire pour éviter cela ?

Merci