[E-00] Collection dans un objet, est-ce possible ?

Bonjour,

Etant débutant en VBA, je bloque sur un point :

Je possède un objet Connector avec à l'intérieur une collection d'objets Wire, lorsque je veux accèder à ma liste de Wires de mon objet Collector :

currentCollector.WiresAtBegin

le compliteur me dit "Argument non facultatif".

Voici la déclaration de mon objet Connector avec ses getter et setter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private mWiresAtBegin As New Collection ' Liste des câbles en entrée Private mWiresAtEnd As New Collection ' Liste des câbles en sortie   Property Get WiresAtBegin() As Collection WiresAtBegin = mWiresAtBegin End Property   Property Let WiresAtBegin(WiresAtBegin As Collection) mWiresAtBegin = WiresAtBegin End Property   Property Get WiresAtEnd() As Collection WiresAtEnd = mWiresAtEnd End Property Property Let WiresAtEnd(WiresAtEnd As Collection) mWiresAtEnd = WiresAtEnd End Property

---

Je précise que je suis en VB 6.0

On peut très bien avoir une collection dans un objet et y accéder comme tout autre membre non ?

Si quelqu'un a une piste pour que currentCollector.WiresAtBegin passe sans encombres...

Merci d'avance.

Je viens de me rendre compte qu'en fait cette erreur sort à chaque fois que je fais des getter sur des collections contenues dans des objets...

Donc si quelqu'un peut me dire si je m'y prend mal pour gérer des collections dans les objets...

Bonsoir,

Une collection est un objet, il faut donc utiliser Set:

Code:

---

1 2 3 4 5 6 7 8 9

Private mWiresAtBegin As Collection ' Liste des câbles en entrée   Property Get WiresAtBegin() As Collection Set WiresAtBegin = mWiresAtBegin End Property   Property Set WiresAtBegin(WiresAtBegin As Collection) Set mWiresAtBegin = WiresAtBegin End Property

---

Si la propriété est en lecture/écriture le mot New est inutile dans la déclaration.

Cordialement,

Tirex28/

C'est exactement ça, ça marche nickel !

Je te remercie !


--> Tag résolu