與接口後期綁定技術也許

Question

請考慮以下情形：

Class Class1 
Function Func() as String 
End Function 
End Class 

Class Class2 
Function Func() as String 
End Function 

Function Func2() as String 
End Function 
End Class 

Class Class3 

Function GetClassObject as Object 
If (certain condition meets) 
    return new Class1(); 
Else 
    return new Class2(); 
End If 
End Function 

Main() 
Object obj1 = GetClassObject(); 
obj1.Func(); // Error: obj1.Func() is not defined: 
End Main 

End Class 

問題：如何因爲出於某種原因，我不能從一個共同的接口類繼承的Class1和Class2中的條件訪問obj1.Func（） ？

謝謝

更新： 我用來解決這個問題，失敗的一種方法如下：

Interface ICommon 
    Function Func() as string 
    End Interface 

    Class Class3 
    ... 
     Main() 

     Dim obj1 as ICommon = TryCast(GetClassObject(), ICommon); //Error: obj1 is "Nothing" 
     obj1.Func() 

or simply: 

TryCast(GetClassObject(), ICommon).Func() //Error: obj1 is Nothing 

     End Main 
    ... 
    End Class 

Answer 1

你可以試試這個

Object obj1 = GetClassObject(); 

If TypeOf obj1 Is Class1 Then 
    DirectCast(obj1 , Class1).Func() 
ElseIf TypeOf obj1 Is Class2 Then 
    DirectCast(obj1 , Class2).Func() 
End If 

，或者您也可以嘗試

Dim c1 As Class1 = TryCast(obj1, Class1) 
IF Not c1 Is Nothing Then 
    c1.Func() 
Else 
    Dim c2 As Class2 = TryCast(obj1, Class2) 
    IF Not c2 Is Nothing Then 
     c2.Func() 
    End If 
End If 

或者您可以嘗試使用反射。

Dim result as String = obj1.GetType().GetMethod("Func").Invoke(obj1, null)