Как заполнить переменные объекта, определенные в словаре на основе JSON?

Question

ОК, этот вопрос звучит, может быть, немного запутанным, поэтому я попытаюсь объяснить его примером.

Притворись у вас есть объект, как это:

Class Something 
    Private varX As New Integer 
    Private varY As New String 

'[..with the associated property definitions..] 

    Public Sub New() 
    End Sub 

End Class 

, а другой с:

Class JsonObject 
    Inherits Dictionary(Of String, String) 

    Public Function MakeObject() As Object 'or maybe even somethingObject 
     Dim somethingObject As New Something() 

     For Each kvp As KeyValuePair(Of String, String) In Me 
      'Here should happen something to use the Key as varX or varY and the Value as value for the varX or varY 
      somethingObject.CallByName(Me, kvp.Key, vbGet) = kpv.Value 

     Next 

     return somethingObject 
    End Function 

End Class 

Я получил 'CallByMe()' функции из previous question of myself

Answer 1

CallByName работ отличается от того, как вы пытаетесь его использовать. Посмотрите на документацию, она расскажет вам, что в данном конкретном случае правильное использование будет

CallByName(Me, kvp.Key, vbSet, kpv.Value) 

Однако функция CallByName является частью библиотеки VB, который не поддерживается на всех устройствах (в частности, это ISN» t включен в платформу .NET Mobile), и, следовательно, лучше не использовать его.

Использование правильного отражения немного сложнее, но гарантированно работает на всех платформах.

Dim t = GetType(Something) 
Dim field = t.GetField(kvp.Key, BindingFlags.NonPublic Or BindingFlags.Instance) 
field.SetValue(Me, kvp.Value)