Discussion :

[Phifi]

Bonjour,

j'ai créé une classe qui comporte 10 propriétés :

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
 
Public Property Let tab_01(ByVal vData As listab)
    mvartab_01 = vData
End Property
 
Public Property Get tab_01() As listab
    tab_01 = mvartab_01
End Property
 
Public Property Let tab_02(ByVal vData As listab)
    mvartab_02 = vData
End Property
 
Public Property Get tab_02() As listab
    tab_02 = mvartab_02
End Property
 
etc. jusqu'à 10
 
listab est une énumération

puis j'ai une méthode qui traitent les valeurs de mes propriétés.

Ma question est la suivante : est-il possible d'optimiser le code de cette méthode en utilisant un index pour traiter les 10 propriétés afin d'éviter les redites ?

Code :

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

1
2
3
4
5
6
 
Public Function Get_DelAutor(ByVal delcod As Long) As Boolean
   ' déclaration diverses
   '
   pour i = 1 à 10
         traitement de suivant la valeur de "tab_0" + Str(i)

[Asdorve]

salut,

et si tu rajoute un index en param de ta fonction?
du genre

Code :

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

1
2
 
Fonction (TonParam, Index as Integer)

[Phifi]

Je vois pas trop ce que j'en ferais de cet index...
Quoi qu'il se passe, je dois traiter mes 10 propriétés

[Asdorve]

j'imaginais juste un truc comme ça:

Code :

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

1
2
3
4
5
6
7
 
 
Public Function Get_DelAutor(ByVal delcod As Long) As Boolean
   ' déclaration diverses
   '
   pour i = 1 à 10
        j'appelle mes fonctions en donnant en param i

et:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Public Property Let tab(ByVal vData As listab, Index as Integer)
    mvartab_01 = vData
End Property
 
Public Property Get tab(Index as integer) As listab
    tab_01 = mvartab_0 & Index
End Property

[Phifi]

J'ai testé :

Code :

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

1
2
3
4
5
6
7
Public Property Let tab(Byval Index as Integer, ByVal vData As listab)
    mvartab(index) = vData
End Property
 
Public Property Get tab(Index as integer) As listab
    tab(index) = mvartab(index)
End Property

mais quelque chose ne fonctionne pas lors de la lecture, je ne pense pas que ce soit possible finalement

Je ne devrais pas utiliser une classe Collection plutôt ?

[Asdorve]

tu as déclaré comment mvartab et tab?

[Phifi]

Code :

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

tu as déclaré comment mvartab et tab?

mvartab oui

Plus j'y pense, plus je suis persuadé que ce n'est pas concevable. Je suis parti sur la piste de l'objet collection, couplé à ma classe, cela semble convenir.

Merci de ton aide

[Asdorve]

bonjour,

si tu considères que c'est bon pour ce post, pense au tag Résolu.


EDIT: il y est déjà... J'avais pas vu

@+