オーバーロードされた2つのサブシステムを1つに結合する

Question

私は、の古いデータベースシステムに接続するサードパーティライブラリを使用しています。 「ストアドプロシージャ」を呼び出すメソッド（CallProg）があります（より良い翻訳の欠如のために、群衆のどのピックユーザも？）。しかし、代わりにこのような何かを行うの：

Public Sub CallProg(ProgName, ParamArray ProgArgs() As String) 
    ... 
End Sub 

かさえ、この：

Public Sub CallProg(ProgName, Optional Arg1 As String, Optional Arg2 As String ... Optional Arg20 As String) 

彼らはこれをしなかった：

Public Sub CallProg(ProgName) 
Public Sub CallProg(ProgName, Arg1 As String) 
Public Sub CallProg(ProgName, Arg1 As String, Arg2 As String) 
Public Sub CallProg(ProgName, Arg1 As String, Arg2 As String, Arg3 As String) 
... 
Public Sub CallProg(ProgName, Arg1 As String, ... Arg20 As String) 

私は、ログイン処理するための抽象クラスを書いています環境を設定するなど、他の多くのプロジェクトでジェネリックな "ヘルパー"クラスとして使用することができます。 CallProg subに20オーバーロードが含まれないようにする方法はありますか？

Answer 1

これは、リフレクションを使用して行う方法の非常に簡単なアイデアです。私はその最良の方法かはわからないが、それは動作するはずです...

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    CallProg("ProgName", {"testArg1", "TestArg2"}) 

End Sub 

Private Sub CallProg(ByVal ProgName As String, ByVal Params As IEnumerable(Of String)) 

    Dim testClass As New Test1 

    Dim methodTypes As List(Of Type) = 
     Params.Select(Function(x) GetType(String)).ToList 

    methodTypes.Add(GetType(String)) 

    Dim methodToBeCalled As Reflection.MethodInfo = 
     testClass.GetType.GetMethod("CallProg", 
            System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.Public, 
            Type.DefaultBinder, 
            methodTypes.ToArray, 
            Nothing) 


    Dim paramsToPass As New List(Of String) 

    paramsToPass.Add(ProgName) 
    paramsToPass.AddRange(Params) 

    methodToBeCalled.Invoke(testClass, paramsToPass.ToArray) 

End Sub 

エンドクラス

パブリック・クラスのTest1

Public Sub CallProg(ByVal ProgName As String) 
    Debug.WriteLine("Sub0 called") 
End Sub 

Public Sub CallProg(ByVal ProgName As String, ByVal Arg1 As String) 
    Debug.WriteLine("Sub1 called") 
End Sub 

Public Sub CallProg(ByVal ProgName As String, ByVal Arg1 As String, ByVal Arg2 As String) 
    Debug.WriteLine("Sub2 called") 
End Sub 

Public Sub CallProg(ByVal ProgName As String, ByVal Arg1 As String, ByVal Arg2 As String, ByVal Arg3 As String) 
    Debug.WriteLine("Sub3 called") 
End Sub 

エンドクラス

Answer 2

別の方法にRene147が提案したことを：

Private _act As New APIClass 

Public Sub CallProg(ByVal ProgName As String, ByVal ParamArray ProgArgs() As String) 
    Try 
     Dim tList As New List(Of Type) 
     tList.Add(GetType(String)) 

     Dim aList As New List(Of String) 
     aList.Add(ProgName) 

     For Each arg In ProgArgs 
      tList.Add(GetType(String).MakeByRefType) 
      'tList.Add(GetType(String)) <-- only use this if all the args are ByVal 
      aList.Add(arg) 
     Next 
     Dim typeList As Type() = tList.ToArray 
     Dim argList As String() = aList.ToArray 

     GetType(APIClass).GetMethod("CallProg", typeList).Invoke(_act, argList) 
    Catch ex As Exception 
     Console.Write("Error running program {0}.", ProgName) 
    End Try 
End Sub