Discussion :

[guda]

Bonjour,

J'ai une classe qui gère une communication avec une machine distante.
Je dois discuter avec plusieurs machines en parallèle.
J'ai eu l'idée (bonne ou mauvaise) de faire un tableau instanciant mes différentes classes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 Dim tbl_Client_Communication As Class_Client_Communication() =  New Class_Client_Communication() {} 'création d'un tableau de ma classe
 ReDim tbl_Client_Communication As Class_Client_Communication(15) ' j'ai 15 machines
 
 'Pour chaque machine
 For num_machine = 1 To 15
            tbl_Client_Communication(num_machine) = New Class_Client_Communication(IP_machine(num_machine)) 'le constructeur a besoin de l'IP
 Next

Cela fonctionne bien, je peux gérer mes différentes instances.

J'ai besoin de surveiller certains événements et j'ai rajouté un Event sur ma classe.

Maintenant je suis bloqué car je ne parviens pas à trouver la syntaxe.
Je pensais juste modifier la déclaration de mon tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim WithEvents  tbl_Client_Communication As Class_Client_Communication() =  New Class_Client_Communication() {}

Sauf que les tableaux ne gèrent pas ce type d’événement.

Ma question est donc comment déclarer plusieurs instances de ma Classe tout en gérant les events ?

Merci pour votre aide.

Dan

[Pol63]

addhandler

ou event shared qui fournit l'instance

[guda]

Merci, je n'avais pas pensé à la possibilité de le mettre en Shared en faisant passer un ID permettant d'identifier l'instance.