Composant Commnication Inter applications

Le post précdent ayant éré accidentellement écrasé, je reposte le sujet.

Ce composant est une réécriture du composant similaire DiConverse6.ocx
D'une utilisation plus simple, il permet en plus de faire communiquer plusieurs exe en même temps. La distinction emetteur/recepeteur a été abolie, chaque exe peut être l'un ou l'autre.
On communique en envoyant /recevant des chaînes de caractères .

Pour l'utiliser, dans le form_load, on marque l'instance avec une marque personalisée.

Code:

---

1 2 3

Private Sub Form_Load() Converse1.Mark = "_Test2_" End Sub

---

Pour envoyer un message vers les autres forms marquées on utilise la commande senddata

Code:

---

1 2 3 4

Private Sub cmdEnvoi_Click() 'envoyer un message Converse1.SendData txtEmission End Sub

---

Quand un message arrive, l'evénement DataArrival se déclenche, permettant de lire le message

Code:

---

1 2 3 4

Private Sub Converse1_DataArrival(Data As String) 'on recu un message lblReception = Data End Sub

---

DiInterApp6.Ocx
C'est aussi simple que çà.