Classe et sous classe VBA / problème de déclaration

Bonjour à tous,

J'ai une classe simple qui fonctionne correctement et j'ai une sous classe mais je ne trouve nulle part la façon de déclarer cette sous classe dans la classe appelante (hormis le private piece(10) as new Pieces)


Exemple : Une classe A : Véhicule (marque, type... et Pièces(x))
Une classe B : Pièces (Code, Type, Prix....)

Je n'arrive pas à déclarer les :

Code:

---

1 2 3

Public Sub (Get/Set/let?) CPieces() as Pièces set Cpieces(n) = end sub

---

Je ne sais pas si je suis assez clair

L'idée c'est qu'un véhicule comporte plusieurs Pièces
Si quelqu'un à la solution il me sauve la vie

Salut,

tu disposes d'un evenement Class_Initialize() dans lequel tu peux faire ton set XX = new YY

D'autre part, tu peux utiliser une fonction

Code:

---

1 2 3

Public Function Pioupiou(X as Integer) as clsTaClasse Set Pioupiou= TonTableau(X) End Function

---

Citation:

---

Envoyé par percussio

L'idée c'est qu'un véhicule comporte plusieurs Pièces
Si quelqu'un à la solution il me sauve la vie

---

le problème de VB6 c'est qu'on ne peut pas faire d'héritage.
Il faut voir du côté des collections de classe, créer une classe "piece" puis créer à chaque fois une instance de classe de type pièce puis les placer dans la collection d'objets.
Pour parcourir la collection il suffit d'une boucle pour accéder à chaque élément.

Exact,

tu peux creer une classe clsPiece avec les caractèristiques

et ensuite une classe clsPieceCollection qui contiendrait une collection Private

Code:

---

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

Private col as Collection   Private Sub Class_Initialize() Set col = New Collection End Sub   Public Sub Add(tmp As clsPiece) col.Add tmp End Sub   Public sub Remove (i as Variant) col.Remove i End Sub   Public Function Count() as Long Count = col.Count End Function   Public Function Item(i As Variant) as ClsPiece Set Item = col.Item(i) End Function

---

Je vous remercie de m'avoir aidé.

Ca fonctionne nickel :)