Discussion :

[percussio]

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 :

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

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

[Jean-Philippe André]

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 :

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

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

[Mat.M]

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.

[Jean-Philippe André]

Exact,

tu peux creer une classe clsPiece avec les caractèristiques

et ensuite une classe clsPieceCollection qui contiendrait une collection Private

Code :

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

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

[percussio]

Je vous remercie de m'avoir aidé.

Ca fonctionne nickel