創建JSON DataContract類VB.NET

Question

我試圖反序列化JSON字符串成一類，但我有困難構建DataContract類。

這裏的JSON響應字符串的例子：

{ 
    "id": null, 
    "result": { 
        "SCD2": { 
           "connected": false 
          }, 
        "FHM1": { 
           "connected": false 
          }, 
        "SCD1": { 
           "connected": false 
          }, 
        "POS2": { 
           "connected": false 
          }, 
        "POS1": { 
           "connected": false 
          } 
      }, 
    "error": null 
} 

這裏是我迄今爲止..我想不出什麼來對結果數據成員做類：

<DataContract()> _ 
Public Class JSON_RESP 
    'region Properties 

    <DataMember(Name:="id")> Public id As String 

    <DataMember(Name:="result")> Public result As New List(Of String) 

    <DataMember(Name:="error")> Public errors As New JSON_ERROR 

    'endregion 

End Class 

<DataContract()> _ 
Public Class JSON_ERROR 
    'region Properties 

    <DataMember(Name:="fault")> Public fault As String 

    <DataMember(Name:="faultCode")> Public faultCode As String 

    <DataMember(Name:="faultString")> Public faultString As String 

    'endregion 
End Class 

Answer 1

我做了，似乎工作，使這個更通用一些變化，但我想一個更優雅的解決方案：

_ 公共類JSON_RESP（Of T）已 '區域屬性

<DataMember(Name:="id")> Public id As String 

<DataMember(Name:="result")> Public result As T 

<DataMember(Name:="error")> Public errors As New JSON_ERROR 

'endregion 

末級

_ 公共類SwitchStatus ' 區域屬性

<DataMember(Name:="POS1")> Public POS1 As New ConnectionStatus 
<DataMember(Name:="POS2")> Public POS2 As New ConnectionStatus 
<DataMember(Name:="SCD1")> Public SCD1 As New ConnectionStatus 
<DataMember(Name:="SCD2")> Public SCD2 As New ConnectionStatus 
<DataMember(Name:="FHM1")> Public SCD3 As New ConnectionStatus 

'endregion 

末級

_ 公共類ConnectionStatus 「區域屬性

<DataMember(Name:="connected")> Public connected As Boolean 

'endregion 

末級