Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric Vernié [MS]
Bonjour Lamalice.
Ajoute un module à ton application, et ajoutes-y le code suivant Module Module1 Sub Main() If False = PrevInstance() Then Application.Run(New Form1) Else MessageBox.Show("Apps déjà chargée") End If End Sub
Function PrevInstance() As Boolean Dim ColProcessus As Process() ColProcessus = Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName) If UBound(ColProcessus) > 0 Then Return True Else Return False End If End Function End Module
n'oublies pas de determiner comme objet de démarrage le Module1 dans les propriétés du projet
A+
Eric Vernié Microsoft France
"lamalice" a écrit dans le message de news:
Bonjour à tous,
quel est le meilleur moyen en VBNET de savoir si un programme s'exécute déjà, et ainsi éviter de le lancer plusieurs fois?
Merci.
Bonjour Lamalice.
Ajoute un module à ton application, et ajoutes-y le code suivant
Module Module1
Sub Main()
If False = PrevInstance() Then
Application.Run(New Form1)
Else
MessageBox.Show("Apps déjà chargée")
End If
End Sub
Function PrevInstance() As Boolean
Dim ColProcessus As Process()
ColProcessus =
Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)
If UBound(ColProcessus) > 0 Then
Return True
Else
Return False
End If
End Function
End Module
n'oublies pas de determiner comme objet de démarrage le Module1 dans les
propriétés du projet
A+
Eric Vernié
Microsoft France
"lamalice" <lamalice@discussions.microsoft.com> a écrit dans le message de
news: 4684A59F-8B08-4975-BC7C-F91DA559C64A@microsoft.com...
Bonjour à tous,
quel est le meilleur moyen en VBNET de savoir si un programme s'exécute
déjà, et ainsi éviter de le lancer plusieurs fois?
Ajoute un module à ton application, et ajoutes-y le code suivant Module Module1 Sub Main() If False = PrevInstance() Then Application.Run(New Form1) Else MessageBox.Show("Apps déjà chargée") End If End Sub
Function PrevInstance() As Boolean Dim ColProcessus As Process() ColProcessus = Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName) If UBound(ColProcessus) > 0 Then Return True Else Return False End If End Function End Module
n'oublies pas de determiner comme objet de démarrage le Module1 dans les propriétés du projet
A+
Eric Vernié Microsoft France
"lamalice" a écrit dans le message de news:
Bonjour à tous,
quel est le meilleur moyen en VBNET de savoir si un programme s'exécute déjà, et ainsi éviter de le lancer plusieurs fois?
