Discussion :

[Hadware]

Bonjour,

J'ai une collection de d'objets :

Code :

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

Public Ligne As Collection

Et je voudrais lui ajouter des propriétés....comme avec un obejt en somme. Comment faire?
Imaginons par exemple, que je veuilles ajouter un tableau de 9 booléens sous le nom de "Domaine"...est-ce possible?

Merci

PS: Sinon je créerai juste un objet "Ligne" avec une collection dedans, mais ca serait plus simple de ne pas avoir à le faire.

[DarkVader]

Pour ajouter des propriétés fait une recherche sur le mot-clé Implements,
si tu n'es pas regardant à ajouter une librairie, utilise le Dictionary de Scripting Runtime (voir tutoriel).
Si le Dictionary ne te convient encore pas, autant l'implémenter que d'implémenter une collection

[Delbeke]

On ne peut pas diectement, à ma connaissance.
Par contre tu peux créér un object dont l'une des propriétés est une collection.

Vb est fourni avec un assitant de génération de classes. Utilise le et regarde le code qu'il génére pour t'en inspirer.

Une info quasiment non documentée, si tu veux exposer l'énumeration de ta collection pour faire un for each obj in myCollection : Il faut une

Code :

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

1
2
3
4
5
Public Property Get NewEnum() As IUnknown
    'Cette propriété vous permet d'énumérer
    'cette collection avec la syntaxe For...Each
    Set NewEnum = mCol.[_NewEnum]
End Property

avec mcol etant ta collection interne.
Cette propriété doit avoir une Id de procèdue = -4.
Pour faire cela, il faut aller dans le menu outil de vb,attribut de procèdure, choisir le nom NewEnum,puis bouton avancées et remplir la case Id de la procèdure avec la valeur -4

[Hadware]

Ouarf!

Merci pour vos réponses, mais je ne suis pas sûr d'avoir bien tout compris!

La code que tu me donnes dans ton message servirai à énumérer le fameux tableau de booléen dans ma collection, ou alors à énumérer la collection une fois placée dans une classe?

[DarkVader]

Un exemple d'implementation de collection
http://www.mvps.org/vbvision/Super_Collections.htm