Comment empéché mon apli de se lancé 2 fois ?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 369 fois - Téléchargée 65 fois

Contenu du snippet

Pas de config particuliére ici, au chargement du formulaire le programme teste si il est déjà actif.
Pour cela, ajouter If App.PrevInstance Then End dans le chargement de votre formulaire.

Source / Exemple :


Private Sub Form_Load()
    If App.PrevInstance Then  'l'appli est déjà en mémoire?
        ' Le msgBox est ici pour la démo, vous devez
        ' l'enlevez pour permettre à votre Appli de se
        ' décharger d'elle même si elle est déjà ouverte.
        x = MsgBox("Appli déjà ouverte", vbCritical + _
                vbOKOnly, "Erreur !!!")
        End     ' Fin du programme.
    End If
End Sub

Conclusion :


@+

A voir également

Ajouter un commentaire

Commentaires

frederios
Messages postés
125
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
9 décembre 2006
-
comme dans le cas de l'example de ce forum(le code en haut de la page) le x etais pas necessaire puisque le seul but du messagebox etais de dire que l'application roulait deja...
frederios
Messages postés
125
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
9 décembre 2006
-
le x dans x=msgbox cest pour retourner ce que tu va clicker comme si je me trompe pas ca va retourner 6 si tu click ok ainsi de suite... si tu mets pas une variable avant ton msgbox tu mets pas les truc entre() pis ca va juste enclencher un messagebox mais tu vas pas savoir ce que l'utilisateur a clicker dans le msgbox

Example

x=msgbox("ce que tu veux que ca ecrive dans le msgbox",vbOKCancel ,"Le titre du msgbox")

msgbox x
Crew209
Messages postés
21
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
15 juillet 2008
-
Si tu kik le process et tu démar le tien a la place...

nproc = Le PID du process

code = OpenProcess(PROCESS_TERMINAT, 0, nproc)
Tu fait : TerminateProcess code, 0

Puis la tu laisse le prog continué a séxécuter
cs_slayer
Messages postés
202
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 mars 2008
-
super ce code , mais sa sera pas possible par hasard , de fermer l'encienne apli au lieu de fermé la nouvelle q'uon ouvre ?
Cervomix
Messages postés
23
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
10 janvier 2003
-
Merci Kris je V essayer!

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.