110,538
社区成员
发帖
与我相关
我的任务
分享
<DataContract()> _
Public Class MainClass
Private _ID As String
Private _MoreInfo As MoreInfoClass
<DataMember(Name:="id")> _
Property ID() As Integer
Get
Return _ID
End Get
Set(ByVal value As Integer)
_ID = value
End Set
End Property
<DataMember(Name:="moreinfo")> _
Property MoreInfo() As MoreInfoClass
Get
Return _MoreInfo
End Get
Set(ByVal value As MoreInfoClass)
_MoreInfo = value
End Set
End Property
Public Sub New()
_ID = ""
_MoreInfo = New MoreInfoClass
End Sub
End Class
<DataContract()> _
Public Class MoreInfoClass
Private _Info1 As String
Private _Info2 As String
<DataMember(Name:="info1")> _
Property Info1() As String
Get
Return _Info1
End Get
Set(ByVal value As String)
_Info1 = value
End Set
End Property
<DataMember(Name:="info2")> _
Property Info2() As String
Get
Return _Info2
End Get
Set(ByVal value As String)
_Info2 = value
End Set
End Property
Public Sub New()
_Info1 = ""
_Info2 = ""
End Sub
End Class
Dim JsonString as String="最上面的JSON"
Dim JsonSerializer As New DataContractJsonSerializer(GetType(MainClass))
Dim Stream As New MemoryStream(Encoding.UTF8.GetBytes(JsonString))
Dim TempReturn As MainClass = JsonSerializer.ReadObject(Stream)