从newtonsoft json访问VB.net中的嵌套对象

Imports Newtonsoft.Json

' 定义嵌套对象的类
Public Class InnerObject
    Public Property InnerProperty As String
End Class

Public Class OuterObject
    Public Property OuterProperty As String
    Public Property NestedObject As InnerObject
End Class

' JSON字符串
Dim json As String = "{""OuterProperty"": ""OuterValue"", ""NestedObject"": {""InnerProperty"": ""InnerValue""}}"

' 反序列化JSON字符串为对象
Dim obj As OuterObject = JsonConvert.DeserializeObject(Of OuterObject)(json)

' 访问嵌套对象中的数据
Console.WriteLine(obj.OuterProperty) ' 输出：OuterValue
Console.WriteLine(obj.NestedObject.InnerProperty) ' 输出：InnerValue