Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 16:52:30

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

RE : ERREUR : éLéMENTS DUPLIQUéS NON PRIS EN CHARGE PAR LE PARAMèTRES "RESOURCES" par cboulas

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

COMMANDBARS par aljan

RE : TRIS SUR CONTRôLE LISTVIEW EN VISUAL BASIC6 ? par Sator

+ de logiciels à télécharger

1 465 358 membres
405 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 279 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COMMENT EMPÉCHÉ MON APLI DE SE LANCÉ 2 FOIS ?

Information sur la source

Catégorie :Exécution Classé sous : application, lancer, 2 Niveau : Débutant Date de création : 20/03/2001 Vu : 5 603

Auteur : youl46

Site perso

Ecrire un message privé

Note :

7,36 / 10

Commentaire sur cette source (11)

Ajouter un commentaire et/ou une note

Description

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

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

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

Sources du même auteur

DETECT : PROGRAMME MAL ARRETER

COMPRÉSSION / DÉCOMPRÉSSION

COMMENT OBTENIR BCP D'INFO SUR VOTRE MACHINE ?

OUVRIR UNE BOITE DE FORMATAGE DE DISQUETTE

UNE CALCULATRICE PLUS SIMPLE ENCORE !

Toutes les sources de youl46

Sources de la même categorie

CODE DE COULEURS DES RÉSISTANCES par houss77

DUAL LANGUAGE VB6 DEVELOPPEZ EN FRANÇAIS COMPILEZ EN ANGLAIS... par deleplace

PATCHER LE COMPILATEUR VB6 POUR QU'IL COMPILE DES EXES AUTON... par deleplace

SUPPRESSEUR DE LA DÉPENDACE À VB6FR.DLL REND LES EXES VB6 AU... par deleplace

CRÉATEUR DE LANCEUR DE LOGICIEL DANS UN DOSSIER TEMPORAIRE E... par deleplace

Toutes les sources de la catégorie Exécution

Sources en rapport avec celle ci

RETANGLE DE PETZOL par Londonic

STANDARISATION D'APPLICATIONS par mehdikobra

HANDLISTER par Christ_OFF

VÉRIFIER SI UNE APPLICATION EST LANCÉ, SINON ON LA DÉMARRE ! par scoubigee

LANCER UN FICHIER ET RÉCUPÉRER LE HANDLE DE L'APPLICATION LA... par jack

Commentaires et avis

Commentaire de KevinK le 13/05/2002 15:45:02

karlkox> Nan c'est faux, ca marche très bien même quand tu ouvre un fichier associé avec ton prog.
Je suis sur que t'a même pas essayé !

Commentaire de PatDeLaYaute le 14/05/2002 22:47:48

Salut, ce petit bout de code est très intérressant. Mais j'aimerais savoir :

si l'application est sur un réseau, va t-elle se détecter si elle est excécutée depuis un poste différent ?

@+

Commentaire de youl46 le 15/05/2002 15:24:21

je crois pas

Commentaire de PatDeLaYaute le 16/05/2002 10:57:27

ok, ben tant pis alors :-(
@+

Commentaire de yoman64 le 08/06/2002 09:54:25

Cool merci du truc

Commentaire de SysteM le 10/06/2002 03:17:08

Pourquoi utiliser une variable (x)

x = msgbox(.......

???

Commentaire de Cervomix le 19/07/2002 11:40:57

Merci Kris je V essayer!

Commentaire de slayer le 20/01/2003 10:09:46

super ce code , mais sa sera pas possible par hasard , de fermer l'encienne apli au lieu de fermé la nouvelle q'uon ouvre ?

Commentaire de Crew209 le 05/02/2003 20:38:56

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

Commentaire de frederios le 26/10/2006 21:32:37

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

Commentaire de frederios le 26/10/2006 21:36:37

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...

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Lancer un programme a partir be VBA [ par lulociel ] Bonjour! Je souhaite lancer une application pour extraire des données de l'AS400(que j'utilise au travail).Je voulais savoir s'il est possible d'execu comment lancer une application sur serveur , apartir du poste client [ par Zied ] bonjour a tous,j'ai besoin d'aide pour pouvoir executer une applacation (VB,WNT,SQLSERVER 7.) , installée sur le serveur, à partir d'un poste clientme Lancer un appli avec un fichier [ par Loïc ] Sous Windows, pour lancer une application, il lui faut un fichier. On prend ce fichier, on le fait glisser sur l'exe (sur l'application) et on relache Lancer un process avec des droits particuliers [ par cyrilp ] Bonjour,J'aimerai savoir comment faire avec les API windows (NT) pour lancer une application sous un compte particulier.Par exemple, je suis connecté Lancer Word et fusionner... [ par SOLDEVILA ] Bonjour à tous.Mon application lance Word en ouvrant un document de publipostage avec le code suivant:Dim MonDoc As ObjectDim MonFichier As String... Lancer une application en plein ecran [ par bbernard ] Bonjour,Je suis debutant dans ce domaine et je m'entraine en creant de petite application pour mon confort et j'ai besoin d'un peu d'aide.J'ai creer u lancer une application automatiquement [ par jerbi ] Bonjour !J'ai une application VB que je désire faire tourner 3 à 4 fois par jour et que je compte placer sur le serveur. Cette application est autonom j'ai un petit probleme pour lancer une application avec shell [ par noshelter ] D'abord salut,donc voilà j'arrive à lancer des applications avec shell (suivi du chemin du prog pour ceux qui savent pas) mais j'ai un prob avec une a Utilisation de ligne de commande pour lancer une application ? [ par PROGRAMMIX ] Voilà, j'ai créé deux applications qui contiennent chacune d'elle une ListBox avec une liste de personnes. J'ai mis dans l'une d'elle un bouton qui m