Comment gérer WithEvents sur une ensemble de classe
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:
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:
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
