Discussion :

[dropsoil]

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 :

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
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 :

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

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

[zazaraignée]

Salut

Déjà, si ta fonction setProperty ne marche pas, il sera difficile to retrieve quelque chose from celle-ci... heu... il me semble...

Traduction: (parce que je suis modératrice et que là, je donnais le mauvais exemple...) Si la fonction setProperty ne fonctionne pas, il sera difficile d'en extraire toute valeur de cette propriété (ou variable) via toutes les fonctions getProperty du monde... il me semble.

[dropsoil]

Merci pour ta réponse.
Tu m'as bien sorti de la mouise.