Discussion :

[seareal001]

Bonjour,
j'ai une classe avec des attributs publiques qui se présente comme ceci:

Code :

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

1
2
3
4
5
6
7
8
Public Class Location
    Inherits TransfertAffaire
 
    Public ALC_Loyer As New Champs("LOYER")
    Public ALC_DepotGarantie As New Champs("DEPOT_GARANTIE")
    Public ALC_FraisDivers As New Champs("FRAIS_DIVERS")
    Public ALC_FraisAgence As New Champs("FRAIS_AGENCE")
[...]

le type champs est le suivant :

Code :

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

1
2
3
4
5
6
7
8
 
Public Class Champs
    Public Name As String
    Public Value As String
    Public Letype As String
    Public Erreur As Long
    Public CanBeNull As Boolean
    Public IsObligatoire As Boolean

comment instancier mes attributs (de type champs) grace a une boucle?
c'est a dire pas

Code :

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

ALC_Loyer.value="3", ALC_DepotGarantie="3"

mais plutot quelque chose du genre:

Code :

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

1
2
3
for each attribut in location.mesattributs
attribut.value="3"
end for

[olsimare]

Bonjour.

Pour cela, je ne vois que l'utilisation d'un collection generic type sortedlist of.

du style dans Location en déclaration :

dim mesChamps As System.Collections.Generic.SortedList(Of String, Champs)

Puis en load ou new :

me.meschamps.add("LOYER", new champs)
...

Tu peux alors itérer sur les Champs contenu dans mesChamps
Dim c As champs
For Each c In maLocation.meschamps.Values
...

A noter que dans ce cas la propriété Name de Champs ne sert plus à grand chose car c'est la clé de la sortedlist.

Cdt.

[seareal001]

la solution tient en une ligne

Code :

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

1
2
3
Dim c As New Champs
        c.Value = 3
        CallByName(t.InfoLocation, "ALC_Loyer", CallType.Set, c)

grace à l'invocation via un type "String" je peux affecter par une boucle sur mes champs commencant par "ALC"