Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 296 fois - Téléchargée 38 fois
Public Function PrevInstance() As Boolean If Diagnostics.Process.GetProcessesByName _ (Diagnostics.Process.GetCurrentProcess.ProcessName) _ .Length > 1 Then Return True Else Return False End If End Function ' ******* ' * Utilisation ' ******* If PrevInstance() = True Then ' Recuperer toutes les intances Dim Processes() As Process Processes = _ Diagnostics.Process.GetProcessesByName( _ Diagnostics.Process.GetCurrentProcess.ProcessName) ' Activer la premiere AppActivate(Processes(0).Id) ' Fermer cette intance Application.Exit() End If
26 févr. 2007 à 17:14
Merci pour le code, c'est exactement ce que je cherchai.
Damien
22 mai 2003 à 17:44
voici le code que j'ai :
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
Dim Processes() As Process
Processes = Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)
'Dim i As Application
'Activer la premiere
AppActivate(Processes(0).Id)
'Fermer cette intance
Application.Exit()
End If
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.