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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 çà.