[VBA] Utilisation des gets pour une classe de classe
bonjour
j'ai créé une classe de classe pour voir comment ça tournait.
J'ai voulu verrouiller en ecriture donc j'ai mis des property get pour acceder a mes sous classe. Seulement avec cette méthode je n'arrive pas a atteindre les methodes et propriétés présentes dans mes sous classes. Comment puis je faire?
je vais mettre le code ce sera peut être plus parlant :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| dim cldCadreSup, cldCadre, cldMaitrise, cldEmploye, cldOuvrier As Demographie
Dim dtaux(5), dChargement(5) As Double
'Dim taux(5) As Double
Property Get CadreSup()
CadreSup = cldCadreSup
End Property
Private Sub class_initialize()
Set cldCadreSup = New Demographie
Set cldCadre = New Demographie
Set cldMaitrise = New Demographie
Set cldEmploye = New Demographie
Set cldOuvrier = New Demographie
cldCadreSup.InitDemo (11)
cldCadre.InitDemo (12)
cldMaitrise.InitDemo (13)
cldEmploye.InitDemo (14)
cldOuvrier.InitDemo (15)
End Sub |
mais comme je l'ai programmé, je n'ai pas réussi a atteindre l'effectif qui été dans ma cldCadeSup, a cause du get. comment puis je faire pour contourner ce problème, mis à part ecrire des get pour chaque possibilité?