Imports System

Imports System.Linq

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

​

' https://stackoverflow.com/questions/50239156/vb-net-syntax-for-newtonsoft-jsonproperty-order-property

​

    Public Class Card

        <JsonProperty(PropertyName:="CardName", Order:=2)>

        Public Property Name As String

​

        <JsonProperty(PropertyName:="CardDescription", Order:=3, _

                NullValueHandling := NullValueHandling.Ignore, DefaultValueHandling := DefaultValueHandling.IgnoreAndPopulate)>

        <System.ComponentModel.DefaultValue("")>

        Public Property Description As String

​

        <JsonProperty(PropertyName:="CardCode", Order:=1)>

        Public Property Code As String

    End Class

    Public Module Module1

        Public Sub Main()

            Dim card = New Card() With { _

                .Name = "PSU", _

                .Description = "", _

                .Code = "Code0001" _

            }

            Dim json = JsonConvert.SerializeObject(card, Formatting.Indented)

            Console.WriteLine(json) 

            Dim card2 = JsonConvert.DeserializeObject(Of Card)(json)

            Console.WriteLine(JsonConvert.SerializeObject(card2, Formatting.Indented))

            card2.Description = "My Description"

            Console.WriteLine(JsonConvert.SerializeObject(card2, Formatting.Indented))

        End Sub

    End Module

​