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.
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 Private Sub Form_Load() Converse1.Mark = "_Test2_" 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 cmdEnvoi_Click() 'envoyer un message Converse1.SendData txtEmission End Sub
DiInterApp6.Ocx
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
C'est aussi simple que çà.
Partager