Communication entre deux instances d'un même programme

Télécharger le projet
Commenter

Description

Voilà, le problème que je me suis posé lors du concours de VBfrance:

1er) Je l'ance une application (par un click droit dans l'exploreur windows) avec une chaine de commande qui correspond à un fichier image par exemple...

2eme) Je lance une nouvelle fois l'application avec un autre raccourici et je voudrais que la commande passe dans la premier application déja ouverte.. et surtour que l'apllication ne se lance pas deux fois...

ET Bien j'ai enfin trouvé la solution !!! Donc c'est valable pour autre chose que des images biensur... J'ai essayé de le rendre le plus souple possible d'utilisation... en clair il faudra rajoutter à votre aplli 1 module.bas une classe et trois ligne dans le démarage de votre prog...


OUI POUR TESTER LE FONCTIONNEMENT JE VOUS AI MIS LE PROG INSTANCE.EXE ... lancer le deux fois :) ...
Pour les inquiet de nature ... compilé le source et lancer votre compil

Vous aurez compris ... CA NE MARCHE PAS EN DEV MODE !

Mise A jour le 24/03/2003: LE PLANTAGE SOUS W98 EST RESOLU !!!
Le problème venait du détachement du callback qui ne se fesait pas. Il semble que sous W98 le programme ne passe pas par la fonction de la classe
Class_Terminate ...

Source / Exemple : 


'Seulement ça dans votre form_load
Méthode 1:

  'Déclaration de la classe
    Set My_Instance = New InstanceClass
  'Initialisation de la classe (Création du TextBox de reception)
    My_Instance.InitClass Me.hwnd
  'Renseigne le texte à faire passer au textbox de l'autre instance
    My_Instance.CommandLine = "Message envoyer par la deuxième instance !!! "
  'Définition de l'action a réalier
  'Ici on anvoie le texte à l'instance déja en mémoire et on arrête le prog
    My_Instance.ActionCmd = Send_Killme
  'Vas teste :) :) :)
    My_Instance.PrevInstace

Méthode 2:

  'Déclaration de la classe
    Set My_Instance = New InstanceClass
  'Initialisation de la classe (Création du TextBox de reception)
    My_Instance.InitClass Me.hwnd
  'Définition de l'action a réalier juste le test
    My_Instance.ActionCmd = None
  'Vas teste :) :) :)
    If My_Instance.PrevInstace = True Then
        My_Instance.SendTexte "Message envoyer par la deuxième instance !!! "
        My_Instance.SowPrev
        My_Instance.Class_Terminate98
        End
    Else
        'Ici on continu le prog
    End If
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (fredlynx)