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.ComponentModel.DataAnnotations

Imports System.Threading

Imports System.Xml.Linq

Imports System.Xml

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

Imports NUnit.Framework

​

    ' https://stackoverflow.com/questions/56308478/pass-constructor-arguments-when-deserializing-into-a-listof-t#56308478

​

Namespace Word

​

    Class Document

        ' Mockup Word.Document for testing purposes

        Public Property FullName as String

    End Class

​

End Namespace

​

    Class MyObject

​

        Private ReadOnly _Parent As Word.Document

​

        Property Foo As String

        Property Bar As String

​

        Sub New(Parent As Word.Document, Foo As String, Bar As String)

            Me.New(Parent)

            Me.Foo = Foo

            Me.Bar = Bar

        End Sub

​

        Sub New(Parent As Word.Document)

            _Parent = Parent

        End Sub

​

        Function GetFile() As System.IO.FileInfo

            Return New FileInfo(_Parent.FullName)

        End Function

​

        Friend Function GetParent() As Word.Document

            Return _Parent

        End Function

    End Class

​

    Class MyObjectConverter

        Inherits CustomCreationConverter(Of MyObject)

​

        Private ReadOnly _Parent As Word.Document           

​

        Sub New(Parent As Word.Document)

            If Parent Is Nothing Then

                Throw New ArgumentNullException("Parent")

            End If

            _Parent = Parent

        End Sub

​

        Overrides Function Create(objectType as Type) As MyObject

            Return New MyObject(_Parent)

        End Function

    End Class

    Public Module TestClass 

        Friend Sub Test()

​

            Dim jsonString = GetJson()

            Dim document = New Word.Document()

​

            Dim settings = New JsonSerializerSettings() With { .Converters = { new MyObjectConverter(document) } }

            Dim list = JsonConvert.DeserializeObject(Of List(Of MyObject))(jsonString, settings)

            Assert.IsTrue(list.All(Function(o) document.Equals(o.GetParent())))

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

​

            Console.WriteLine(json2)

        End Sub 

​

Function GetJson() as String

Dim Jstring As String = <![CDATA[

[

    {

      "Foo": "foo",

      "Bar": "bar"

    },

    {

      "Foo": "foo2",

      "Bar": "bar2"

    }

 ]

]]>.Value       

        Return Jstring      

        End Function

​

    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

​