Discussion :

[mactwist69]

Hello la communauté,

J'ai un problème bizarre, bizarre parce que c'est du code qui est censé marché et qui à l'air correct.
LE but de la fonction est de cloner un objet complexe (x variables de type string, integer etc.)

Je vous remets le code, au cas où quelque chose m'échappe...

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
 
Dim objectType As Type = GetType(MonType)
 
Dim propertyInfos As System.Reflection.PropertyInfo() = objectType.GetProperties((System.Reflection.BindingFlags.Public Or System.Reflection.BindingFlags.Instance))
 
 
Dim propertyInfo As System.Reflection.PropertyInfo = Nothing
Dim value As Object = Nothing
 
For index As Integer = 0 To propertyInfos.Length - 1
 
         propertyInfo = CType(propertyInfos(index), System.Reflection.PropertyInfo)
 
         If (Not propertyInfo Is Nothing AndAlso propertyInfo.CanRead) Then
 
               value = propertyInfo.GetValue(referenceObject, Nothing)
 
               'Copy the value in the cloned object
               propertyInfo.SetValue(clonedObject, value, Nothing)
 
          End If
 
Next index
 
Return clonedObject

et ça plante juste la dessus :

Code :

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

value = propertyInfo.GetValue(referenceObject, Nothing)

Avant d'arriver sur la ligne, j'ai mis un EspionExpress sur propertyInfo.GetValue(referenceObject, Nothing)
Et même l'espion me retourne ça comme erreur...

Genre, c'est l'appel à la fonction qui plante...

Alors, que c'est censé marché...
Si quelqu'un a une idée, merci d'avance

[mactwist69]

Quand on lit la MSDN :

L'objet ne correspond pas au type cible ou une propriété est une propriété d'instance, mais obj est null.

Sauf que GetValue retourne bien un type Object, et ma variable value est bien de type Object.
Et mon objet n'est aps nul, je mets un espion dessus, je vois bien qu'il y a des données.

[mactwist69]

Et bien l'erreur était basique (pour pas dire noob).

Mais l'objet sur lequel j'extrayais objectType était une classe mère:

Code :

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

Dim objectType As Type = GetType(MonType)

Tandis que quand je voulais aller chercher la valeur, dans referenceObject, objet fille :

Code :

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

propertyInfo.GetValue(referenceObject, Nothing)

Voilà, voilà... Peut être ça aidera quelqu'un, qui sait.