Discussion :

[eagleleader]

Bonjour à toutes et à tous.

J'ai créé une classe qui contient une trentaine de propriétés.
J'aimerais maintenant pouvoir parcourir l'ensemble des propriétés afin d'en récupérer le nom ainsi que la valeur.
Exemple :

Code :

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

1
2
3
4
public class MaBellePetiteClasse
    Public Property UnePropriete As String
    Public Property UneSeconde As String
End class

Bien entendu, les propriétés sont définies correctement hein
Maintenant je voudrais pouvoir faire dans le code quelque chose comme:

Code :

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

1
2
3
4
5
 
For i As Int32 = 0 To MaBellePetiteClasse.FautQueJeRecupèreLeCompteur
    SonNom = MaBellePetiteClasse.ProPriété(i)
    SaValeur = ????
Next

Bon voilà en gros ce que j'essaye d'exprimer

[oyigit]

Il faut faire de l'introspection (Reflection).

En c# ça donnerait un truc du genre (je me rappel plus exactement)

Code :

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

1
2
3
4
5
6
7
PropertyInfo[] props = typeof(Maclasse).GetProperties(...)
 
foreach(PropertyInfo p in props)
{
 
...
}

En VB, je ne sais pas la syntaxe exact

[eagleleader]

J'avais oublié de préciser que j'ai déjà testé cette possibilité mais le problème est que je récupères toutes les propriétés même les GET et SET.
Mon but est de n'avoir que celles que j'ai définies dans ma classe.
Faut-il utiliser un truc du genre <Serialisable> ???

[SaumonAgile]

Ben une propriété, c'est ça justement. C'est une méthode Get et une méthode Set.
De plus quand je fais ça :

Code :

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

1
2
3
4
foreach (var info in typeof(String).GetProperties())
{
    Console.WriteLine(info.Name);
}

J'obtiens bien Chars et Length.

Montre nous le code que tu as utilisé.

[eagleleader]

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
 
Public Class StartOptions
 
    Public Sub New()
 
    End Sub
 
    Private _id As Int16 = 0
    Public Property Id() As Int16
        Get
            Return _id
        End Get
        Set(ByVal value As Int16)
            _id = value
        End Set
    End Property
 
    Private _serverId As Int16 = 0
    Public Property ServerId() As Int16
        Get
            Return _serverId
        End Get
        Set(ByVal value As Int16)
            _serverId = value
        End Set
    End Property
 
    Private _3GB As String = String.Empty
    Public Property GB() As String
        Get
            Return _3GB
        End Get
        Set(ByVal value As String)
            _3GB = value
        End Set
    End Property
 
    Private _baseVideo As String = String.Empty
    Public Property BaseVideo() As String
        Get
            Return _baseVideo
        End Get
        Set(ByVal value As String)
            _baseVideo = value
        End Set
    End Property
 
    Private _baudRate As String = String.Empty
    Public Property BaudRate() As String
        Get
            Return _baudRate
        End Get
        Set(ByVal value As String)
            _baudRate = value
        End Set
    End Property

Donc, voici ce que j'ai pour le moment : une classe comportant une 30aine de propriétés et je voudrais pouvoir lister ces propriétés et obtenir leur valeur

Possible ou non ?

[SaumonAgile]

Oui c'est possible, le code à utiliser t'a été donné. Maintenant, ce qui nous intéresse, c'est de voir le code que tu utilisais et qui te permettait de dire que cette approche ne fonctionne pas. Tu as dû te planter quelquepart.

[eagleleader]

C'est juste car si je fais ceci :

Code :

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

1
2
3
4
5
6
 
    For Each info As PropertyInfo In GetType(StartOptions).GetProperties()
 
                Console.WriteLine(info.Name)
 
            Next

J'obtiens bien les noms des propriétés par rapport à tantôt où j'obtenais quelque chose de différent car je ne faisais pas comme proposé ci-dessus.

Ce que je n'arrive pas à faire c'est récupérer les valeurs alors que maintenant j'ai bien le nom

[SaumonAgile]

Voila un exemple C# (mon VB.NET est approximatif), tu devras convertir :

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
        static void Main(string[] args)
        {
            String toto = "test";
 
            foreach (var info in typeof(String).GetProperties())
            {
                Console.WriteLine(info.Name);
 
                if (info.GetIndexParameters().Length == 0)
                {
                    Console.WriteLine(info.GetValue(toto, null));
                }
                else
                {
                    Console.WriteLine(info.GetValue(toto, new object[] { 0 }));
                }
            }
        }

[eagleleader]

Salut,

Finalement j'ai réussi à obtenir les informations de mes propriétés et les valeurs via le code ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim startOption As StartOptions = bllServer.GetStartOptions(serveur.IdServer)
For Each info As PropertyInfo In GetType(StartOptions).GetProperties()
 
    Try
 
        Dim unControle As Label = Page.FindControl("lblStartOption" & info.Name)
        unControle.GetType().InvokeMember("Text", BindingFlags.SetProperty, Nothing, info.Name & " - " & info.GetValue(startOption, Nothing), Nothing)
 
    Catch
    Finally
    End Try
Next

Le problème qui se pose maintenant est le Page.FindControl qui me retourne toujours Nothing ... ? ...
J'ai, dans ma page, créé des Label nommés lblStartOptionNomDesPropriétés
Exemple :

Code :

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

1
2
3
4
5
 
<asp:Label ID="lblStartOptionBaseVideo" runat="server"></asp:Label><br />
<asp:Label ID="lblStartOptionFastDetect" runat="server"></asp:Label><br />
<asp:Label ID="lblStartOptionRedirect" runat="server"></asp:Label><br />
<asp:Label ID="lblStartOptionExecuteOption" runat="server"></asp:Label><br />

Info.Name me retourne les noms des propriétés correctement.
lblStartOption & Info.Name me retourne bien lblStartOptionNomDesPropriétés

Mais je ne comprends pas pourquoi le Page.FindControl("lblStartOption" & info.Name) ne fonctionne pas.

[eagleleader]

Et bien voilà, j'ai trouvé la solution :

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
23
24
25
26
27
28
29
30
31
32
33
34
 
Dim startOption As StartOptions = bllServer.GetStartOptions(serveur.IdServer)
            Dim LabelRecherche As String = String.Empty
            Dim unControle As Label
 
            For Each info As PropertyInfo In GetType(StartOptions).GetProperties()
 
                If info.GetValue(startOption, Nothing).ToString() <> "" Then
 
                    Try
 
                        LabelRecherche = String.Empty
 
                        If info.Name = "GB" Then
                            LabelRecherche = "lblStartOption3GB"
                        Else
                            LabelRecherche = "lblStartOption" & info.Name
                        End If
 
                        If Not (RechercheControle(Master, LabelRecherche)) Is Nothing Then
 
                            unControle = RechercheControle(Master, LabelRecherche)
                            GetType(Label).InvokeMember("Text", BindingFlags.SetProperty, System.Type.DefaultBinder, RechercheControle(Master, LabelRecherche), New Object() {info.Name & " - " & info.GetValue(startOption, Nothing)})
                            RechercheControle(Master, "CellStartOption" & info.Name).Visible = True
 
                        End If
 
                    Catch
                    Finally
                    End Try
 
                End If
 
            Next

¨

Le problème venait du fait que FindControl ne fait pas un récurssif => une petite fonction s'impose :

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
 
    Private Function RechercheControle(ByRef Root As Control, ByVal Id As String) As Control
 
        If (Root.ID = Id) Then Return Root
 
        For Each Ctl As Control In Root.Controls
 
            Dim FoundCtl As Control = RechercheControle(Ctl, Id)
            If Not FoundCtl Is Nothing Then Return FoundCtl
 
        Next
 
        Return Nothing
 
    End Function

[SaumonAgile]

Tu devrais stocker la valeur retournée par RechercheControle dès le premier appel et réutiliser cette variable dans le reste du code, ça te permettrait de gagner un peu en performance et surtout en lisibilité

[eagleleader]

Saumon,

Merci pour ton explication !

J'ai maintenant modifié le code pour que cela donne :

Code :

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

1
2
3
4
5
6
7
8
                        unControle = RechercheControle(Master, LabelRecherche)
 
                        If Not (unControle) Is Nothing Then
 
                            GetType(Label).InvokeMember("Text", BindingFlags.SetProperty, System.Type.DefaultBinder, unControle, New Object() {info.Name & " - " & info.GetValue(startOption, Nothing)})
                            RechercheControle(Master, "CellStartOption" & info.Name).Visible = True
 
                        End If