将对象列表序列化为单个JSON对象，并将属性作为键：值

Question

Public Class Doc

    Public TypeDoc As String = ""
    Public Property UserFields As New List(Of UserField)

End Class

Public Class UserField
    Property Name As String = ""
    Property Value As String = ""
End Class

Public Class Example

    Public Sub test()
        Dim d As New Doc
        d.TypeDoc = "Order"
        d.UserFields.Add(New UserField With {.Name = "U_Name", .Value = "Jonny"})
        d.UserFields.Add(New UserField With {.Name = "U_Surname", .Value = "Goodman"})

        Dim Ret As String = JsonConvert.SerializeObject(d)

    End Sub

End Class

所需结果“ Ret”：

{
  "TypeDoc": "Order",
  "U_Name": "Jonny",
  "U_Surname": "Goodman",
}

希望您能理解该示例，我想知道是否有可能得到此结果。 谢谢