Discussion :

[Wells]

Bonjour à tous, je viens vers vous aprés avoir tourné en rond pendant plusieurs jours.

Je cherche à accéder à une propriété d'une classe de facon dynamique. C'est à dire que j'ai mon objet X, et que j'envoit dans une string le nom de la propriété à récupéré. Pas de soucis tant que le propriété ne prend pas de parametres, comme celle ci :

Code :

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

Public Property ETABLISSEMENT(Optional ByVal ConnexionUnique As SqlConnection = Nothing, Optional ByVal TransactionGlobale As SqlTransaction = Nothing) As Object

La je seche, impossible de faire passer mes parametres. J'ai essayé via la réflexion :

Code :

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

1
2
3
4
			Dim ObjetDynamique As Object = monObjet
			Dim ObjetDynamiqueType As Type = ObjetDynamique.GetType()
			Dim SousObjetDynamique As System.Reflection.PropertyInfo = ObjetDynamiqueType.GetProperty("ETABLISSEMENT")
			Dim PropValue As Object = SousObjetDynamique.GetValue(ObjetDynamique, Reflection.BindingFlags.GetProperty, Nothing, Nothing, Nothing)

Et ca me répond bien sur "Nombre de paramètres incorrects."; Sauf que je ne sais pas comment les envoyer.

Donc si qq'un a déjà fait ca je suis preneur de la solution car je suis vraiment bloqué

Wells

[mermich]

Salut,

Euh une propriete n'a pas d'argument ou alors c'est une fonction, donc il dit qu'il comprends pas.

Pour moi c'est vraiment la premiere ligne que je ne comprends pas:

Code :

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

Public Property ETABLISSEMENT(Optional ByVal ConnexionUnique As SqlConnection = Nothing, Optional ByVal TransactionGlobale As SqlTransaction = Nothing) As Object

De plus as-tu essaye ?

Code :

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

Dim PropValue As Object = SousObjetDynamique.GetValue(ObjetDynamique, Nothing)

[_Ez3kiel]

Salut,

Euh une propriete n'a pas d'argument ou alors c'est une fonction, donc il dit qu'il comprends pas.

Ha bon ?

Code :

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

1
2
3
4
5
6
7
8
9
    Private _maListe As List(Of Integer)
    Public Property maListe(index As Integer) As Integer
        Get
            Return _maListe(index)
        End Get
        Set(value As Integer)
            _maListe(index) = value
        End Set
    End Property

Sinon pour répondre à ta question Wells, c'est possible, je l'ai déjà fait sur un prototype en passant en dur les arguments ... Mais ça date ... Je chercherais dans mes archives demain, à défaut je le referais vite fait c'était pas long.

[mermich]

_Ez3kiel => ok j'ai dit n'importe quoi, j'aurai mieux fait de me taire.

Ceci etant dans son cas, je ne vois pas trop la pertinence d'un tel objet.

[Pol63]

il suffit de regarder la signature de GetValue dans l'intellisense, les paramètres doivent être placés dans un tableau d'objet, ce qui en fait une variable unique

[_Ez3kiel]

Mermich c'est en chutant qu'on apprend à marcher.

Et sinon j'ai retrouvé mon projet et c'est tout comme Pol63 a dit, on passe un tableau de paramètre(s).

Soit une property d'objet Public Property personnes(ByVal rang As Integer) As personneData
Et pour cette dernière en adaptant avec ton code ça donne :

Code :

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

1
2
3
4
5
            Dim ObjetDynamique As Object = a
            Dim ObjetDynamiqueType As Type = ObjetDynamique.GetType()
            Dim SousObjetDynamique As System.Reflection.PropertyInfo = ObjetDynamiqueType.GetProperty("personnes")
            Dim PropValue As Object = SousObjetDynamique.GetValue(ObjetDynamique, {2})
'PropValue est du coup l'objet à l'index 2 de type personneData

[Wells]

Hum je crois comprendre ton exemple. Mais (et oui :'(), comment passer 2 paramètres comme dans mon exemple, toi tu t'en as qu'un;

de plus, cette syntaxe est incorrecte en VB.Net (ou VB9) puisque le monsieur Visual Studio me répond :

Visual Basic 90. ne prend en charge ce genre d'itération. Il n'aime pas les {} à priori.

[Pol63]

Code :

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

new object(){valeur1, valeur2}

depuis vs 2010 on peut écrire directement {valeur1, valeur2}

[Wells]

Bah a priori il aime pas, sinon j'ai trouvé, solution perso:

Code :

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

1
2
3
4
5
6
 
Dim SousObjetparametres(1) As Object
SousObjetparametres(0) = Nothing
SousObjetparametres(1) = Nothing
 
Dim Valeur As Object = SousObjetDynamique.GetValue(ObjetDynamique, SousObjetparametres)

Merci à tous pour votre aide