Imports System

Imports System.Linq

Imports System.Collections

Imports System.Collections.Generic

Imports System.Data

Imports System.IO

Imports System.Globalization

Imports System.Reflection

Imports System.Xml.Linq

Imports System.Xml

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

    ' https://stackoverflow.com/questions/47234892/vb-net-class-constructor-of-itself

​

    Public Class XMessage

        <JsonProperty("e")> Public MessageType As String

        <JsonProperty("data")> Public MessageData As Object

        <JsonProperty("ok")> Public MessageOk As String

        Public Sub New(message As String)

            JsonConvert.PopulateObject(message, Me)

        End Sub

​

        Public Sub New()

        End Sub

    End Class

​

    Public Module TestClass 

​

        Friend Sub Test()

        Dim message1 as new XMessage() With { _

            .MessageType = "My Message Type", _

            .MessageData = "message data", _

            .MessageOk = "Yes I am OK" _

            }

​

            Dim json1 = JsonConvert.SerializeObject(message1, Newtonsoft.Json.Formatting.Indented)

            Console.WriteLine("Initial JSON: ")

            Console.WriteLine(json1)

​

            Dim message2 = new XMessage(json1)

            Dim json2 = JsonConvert.SerializeObject(message2, Newtonsoft.Json.Formatting.Indented)

​

            Console.WriteLine(Environment.NewLine & "{0} constructed from that JSON and reserialized: ", message2)

            Console.WriteLine(json2)

            Assert.IsTrue(json1 IS json2)

​

        End Sub 

    End Module

​

    Public Module Module1   

        Public Sub Main()

        Console.WriteLine("Environment version: " & Environment.Version.ToString())

            Console.WriteLine("Json.NET version: " & GetType(JsonSerializer).Assembly.FullName)

            Console.WriteLine("")

​

            Try

​

                TestClass.Test()

​

            Catch ex as Exception

​

                Console.WriteLine("Unhandled exception: ")

                Console.WriteLine(ex)

                Throw

​

            End Try

        End Sub 

    End Module

​

    Public Class AssertionFailedException

        Inherits Exception

        Public Sub New()

        End Sub

        Public Sub New(message As String)

            MyBase.New(message)

        End Sub

        Public Sub New(message As String, inner As Exception)

            MyBase.New(message, inner)

        End Sub

    End Class

    Public Module Assert

        Public Sub IsTrue(value as Boolean, Optional message as String = "failed")

​

            If value = False Then

                Throw New AssertionFailedException(message)

            End If

        End Sub

    End Module