Bonjour à tous
Je cherche à remplacer dans un module de classe
- des propriétés portant sur des variables distinctes
- par des propriétés sur un tableau (statique).
Au lieu de : (qui marche)
J'aimerais pouvoir écrire : (ne marche pas)
avec 6 propriétés l'intérêt est discutable, avec 150 il n'y a pas photo !
Je n'arrive pas à rédiger les Property Get et les Property Let
Ci-joint un essai.
Merci à celui ou celle qui donnera le bon coup de tournevis.
Sigismond
Je cherche à remplacer dans un module de classe
- des propriétés portant sur des variables distinctes
- par des propriétés sur un tableau (statique).
Au lieu de : (qui marche)
Code:
Global Liste As cEnum
Global Listarray As cEnumArray
Sub tst()
Set Liste = New cEnum
Liste.Prop1 = 1
Liste.Prop2 = 2
Liste.Prop3 = 3
Liste.Prop4 = 4
Liste.Prop5 = 5
Liste.Prop6 = 6
MsgBox (Liste.Prop1)
MsgBox (Liste.Prop2)
MsgBox (Liste.Prop3)
MsgBox (Liste.Prop4)
MsgBox (Liste.Prop5)
MsgBox (Liste.Prop6)
End Sub
J'aimerais pouvoir écrire : (ne marche pas)
Code:
Sub tstArray()
Dim i As Integer
Set Listarray = New cEnumArray
For i = 1 To 6
Listarray.Prop(i) = i
Next i
'
'
'
For i = 1 To 6
MsgBox (Listarray.Prop(i))
Next i
End Sub
Je n'arrive pas à rédiger les Property Get et les Property Let
Ci-joint un essai.
Merci à celui ou celle qui donnera le bon coup de tournevis.
Sigismond
Pièces jointes
Dernière édition: