accesseur tableau de class A dans une class B
Bonjour,
J’ai développé une class en vb6, j'ai un problème. J'ai un tableau d'une autre class dans cette class et je voudrai créer les accesseurs sur ce tableau. J'ai fais plusieurs essaie j'en suis arrivé a quelque chose qui compile mais qui ne marche pas. Si vous avez une idée pour résoudre ce problème je suis preneur. Je ne suis pas encore a l'aise avec le VB plus avec le C/C++ java ...
Voici le code de ma class :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Option Explicit
'local variable(s) to hold property value(s)
Private mvarNom As String 'local copy
Private mvarRsrc() As ClassRsrc 'local copy
Public Count As Integer 'local copy
--------------
'Déjà la fonction ci dessous ne marche pas mais je n'en ai pas vraiment besoin
'Public Property Set Rsrc(index As Integer, ByRef vdata As ClassRsrc)
' mvarRsrc(index) = vdata
'End Property
--------------
'Ensuite c'est cette fonction qui ne marche pas
'elle me renvoie une erreur runtime 91.
'A priori c'est parce que Rsrc est nothing mais
'je voudrais le passer en référence et pas par valeur.
Public Property Get Rsrc(ByVal index As Integer) As ClassRsrc
Rsrc = mvarRsrc(index)
End Property |
Et voici l'utilisation que je voudrai en faire :
Code:
1
2
3
4
5
6
7
8
9
10
|
'Déclaration de mon objet class plus instanciation
Dim monproduit As New ClassProduit
'Initialisation de la taille de mes tableaux
monproduit.Init "mon produit"
'Ajout d'un élément dans mon tableau Rsrc
monproduit.addRsrc "Mon Nom", "Mon Métier", "Ma Section Budgétaire"
'Modification d'une valeur de ma class classRsrc en passant par monproduit
'mais ça ne marche pas
monproduit.Rsrc(0).SetVal 2006, 12, 1 |
