Imports System

Imports System.Linq

Imports System.Collections.Generic

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

Public Class Vehicle

    <JsonProperty> _

    Friend Property licence_plate_number As String

​

    <JsonIgnore> _

    Public ReadOnly Property RegistrationNumber As String

        Get

            Return licence_plate_number

        End Get

    End Property

End Class

Public Module Module1

    Public Sub Main()

        Dim vehicle = new Vehicle With { .licence_plate_number = "1234" }

        Dim json = JsonConvert.SerializeObject(vehicle)

        Console.WriteLine("Serialized vehicle: ")

        Console.WriteLine(json)

​

        Dim vehicle2 = JsonConvert.DeserializeObject(of Vehicle)(json)

        Dim json2 = JsonConvert.SerializeObject(vehicle2)

        Console.WriteLine("Deserialized and re-serialized vehicle: ")

        Console.WriteLine(json2)

        If (vehicle.RegistrationNumber <> vehicle2.RegistrationNumber) Then

            throw New InvalidOperationException("vehicle.RegistrationNumber <> vehicle2.RegistrationNumber")

        Else

            Console.WriteLine("RegistrationNumber round-tripped successfully.")

        End If

    End Sub

End Module