親クラスの実装をシャドーした親の型を通してメンバを呼び出す方法

Question

これは、私が今日コーディングしている間に私を困惑させた難しいものです。

：次のような制約を使用して - （それが明確である下記参照）私は Sub Test1()と Test2()を実行していると私は TestCall()にして渡していたオブジェクトのインスタンス の Shadowsメソッドの値をプリントアウトしたいとし

1. は、Class Aの内容を変更B、及びC
2. はSub Test1()とSub Test2()
3. TestCallを（変更できない）if、select caseらを持つことができないことはできません。 c。引き渡された引数の型を把握しようとする文。次にCType(o, <C or B>).Method()を実行する。 AまたはBまたはCから継承すべてがBとCのようなクラスの無限の数があると仮定し、Method
4. シャドウあなたが潜水艦の属性を変更することはできません（つまり、あなたがOverridable/OverridesにShadowsを変更することはできません）

私は動的にCType(o, C).Method()の同等の操作を行うと、Test1のためC.Methodをプリントアウトして、動的にCType(o, B).Method()の同等の操作を行うとB.Methodをプリントアウトしたいと思います。

<TestFixture()> _ 
Public Class Test 

    <Test()> 
    Public Sub Test1() 
     Dim o As A = New C 
     TestCall(o) '<-- THIS SHOULD PRINT "C.Method" 
    End Sub 

    Public Sub Test2() 
     Dim o As A = New B 
     TestCall(o) '<-- THIS SHOULD PRINT "B.Method" 
    End Sub 

    Public Sub TestCall(ByVal o as A) 
      o.Method() 
    End Sub 

    Class A 
     Public Sub Method() 
      Console.WriteLine("A.Method") 
     End Sub 
    End Class 

    Class B 
     Inherits A 

     Public Shadows Sub Method() 
      Console.WriteLine("B.Method") 
     End Sub 
    End Class 

    Class C 
     Inherits B 

     Public Shadows Sub Method() 
      Console.WriteLine("C.Method") 
     End Sub 
    End Class 
End Class 

Answer 1

私は反射なし数日前に発見されたとして、これを行うための別の方法：あなたが求めている本質的に

Public Sub TestCall(ByVal someAorBorC as A) 
    Convert.ChangeType(someAorBorC, someAorBorC.GetType()).Method() 
End Sub 

Answer 2

あなたの問題は、あなたがキーワードShadowsを使用する場合は、元のメソッド、オーバーライド（仮想）メソッドをオーバーライドの逆を隠し、同じ名前を持つ新しいメソッドを作成しているという事実から来ています。

これを動的に解決するために考えられる唯一の方法は、宣言型を調べ、特定のシグネチャの既存のメソッドの型を照会し、そのメソッドを呼び出すことです。

これがあなたの後にあれば、TestCallの次のコード（C＃では申し訳ありませんが、C＃で質問にタグを付けました）が行います。あなたが知る必要がある唯一のことは、元の状況でも知っていなければならないメソッドの名前です。

public void TestCall(A someAorBorC) 
{ 
    // store declaring type 
    Type T = someAorBorC.GetType(); 

    // find shadowed method 
    var method = (from m in T.GetMethods() 
       where m.DeclaringType == T 
       && m.Name == "Method" 
       select m).SingleOrDefault(); 
    if (method == null) 
     throw new Exception("Method 'Method' not found in declaring type"); 

    // call method 
    method.Invoke(someAorBorC, null); 
} 

// Console: 
C.Method 
B.Method