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.Xml.Linq

Imports System.Xml

Imports Microsoft.VisualBasic

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

Imports NUnit.Framework

​

    ' https://stackoverflow.com/questions/72903286/methodinfo-invoke-is-failing-when-parameter-is-of-type-enum

​

Public Enum Days

    Sunday

    Monday

    Tuesday

    Wendesday

    Thursday

    Friday

    Saturday

End Enum

​

Public Class ConsoleObject

    Public Sub ReflectionMethod(ByVal stringParam As String, ByVal enumParam As Days)

        Console.WriteLine(String.Format("Executed:ReflectionMethod | stringParam : {0}; enumParam : {1}", stringParam, enumParam))

    End Sub

End Class

​

Public Module TestClass 

​

    Public Sub InvokeMethodWithJsonArguments(ByVal consoleObject As Object, ByVal methodName As String, ByVal inputJson As String)

        Dim lstObjects As List(Of JToken) = JsonConvert.DeserializeObject(Of List(Of JToken))(inputJson)    ' Deserialize to an intermediate list of JToken values

        Dim method As MethodInfo = consoleObject.GetType.GetMethod(methodName)

        Dim parameterTypes = method.GetParameters().Select(Function(p) p.ParameterType)                     ' Get the required type of each argument.

        Dim args = lstObjects.Zip(parameterTypes, Function(first, second) first.ToObject(second)).ToArray() ' Deserialize each JToken to the corresponding required type

        method.Invoke(consoleObject, args)                                                                  ' Invoke with the deserialized arguments.

    End Sub

​

    Friend Sub Test()

        Dim consoleObject as Object = new ConsoleObject()

​

        Dim inputJson As String = "['Sample Input',2]"

​

        InvokeMethodWithJsonArguments(consoleObject, "ReflectionMethod", inputJson)

    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

​

​