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

    Private Readonly licence_plate_number As String

​

    Public Sub New(ByVal licence_plate_number as String)

        Me.licence_plate_number = licence_plate_number

    End Sub

    <JsonProperty("licence_plate_number")> _ 

    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("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