在VB.NET中使用System.Object類型變量調用接口方法

Question

我有一個接口ITest，方法爲GetResult()。我有一個類Test實現ITest，從而定義私有方法GetResult（）。

接下來，我在另一個類中創建一個Test實例。代碼如下：

Module NewClass 
    Public Sub New() 
     Dim i As ITest = New Test() 

     Dim o As Object 
     o = i 

     Dim b As Boolean = o.GetResult() 'This line raises "MissingMemberException" Public member 'Certify' on type 'Class1' not found. ' 
    End Sub 
End Module 

我必須Object o引用這個，因爲我有其他代碼遵循依賴鄰。請幫助

編輯：

這裏是調用模塊中的代碼

接口：

Public Interface ITest 
    Function GetResult() As Boolean 
End Interface 

Class Test 
    Implements ITest 

    Private Function ITest_GetResult() As Boolean Implements ITest.GetResult 
     Dim result As Boolean 
     ...... 
     ...... 
     Return result 
    End Function 
End Class 

編輯2：

感謝您的即時回覆。

@Vlad - 我將現有的代碼從VB 6遷移到VB.NET，因此我不應該更改GetResult的訪問修飾符。將它私有會拋出InvalidCastException無法投入類型'System.Object'的對象來鍵入'ITest'

@Dan - 對象類型變量o在很多地方使用，因此我不想改變它。是的，Test以不同的名稱實現了ITest.GetMember。

Answer 1

我沒有用VB.NET工作了很長一段時間，但你可以嘗試是：

讓getResult（）方法作爲朋友或公共

如果不工作，那麼嘗試將您的o物體投射到ITest界面

(DirectCast(o, ITest)).GetResult() 

但是您仍然必須將您的方法實現爲朋友或公共接口。

Answer 2

我必須有對象o引用 這個，因爲我有其他的代碼遵循 依賴鄰。

你是什麼意思？您是否知道在任何有代碼的地方，您都可以接受Object，它可以接受ITest？這是繼承的一大好處。

至於MissingMemberException：您能否提供ITest，Test和Class1的定義？如果Test類型使用名稱不同的方法（這在VB.NET中是合法的）實現​​，那麼這可能可以解釋異常 - 儘管這似乎並不是問題出在哪裏。看到您的Test和Class1類別的相關代碼尤其會有所幫助。

---

編輯：根據您的更新，這裏發生了什麼事情。您將VB.NET的後期綁定功能與.NET的概念接口混合在一起。兩者在VB.NET中都得到支持，但它們不是一回事。

所以，當你有一個Object，你可以調用任何方法。這將在運行時解決。但是它必須是一個實際屬於對象類型的方法。在Test的情況下，沒有GetMember功能;只有一個ITest_GetMember函數。所以要利用後期綁定，您需要撥打o.ITest_GetMember（並且此方法將也需要公開，我相信）。

這就是說，我強烈建議不要混合接口實現和以這種方式後期綁定。事實上，在這種情況下，如果你真的有一個接口的話，我會建議你不要在後面綁定，在所有的。我真的看不出有什麼理由將你的強類型ITest變量轉換爲Object;正如我前面所說，你可以隨時使用的ITest爲Object（Object是.NET類型層次的根;你可以使用任何爲Object），但你不能總是做使用Object作爲別的東西。

看起來好像你犧牲了你的i變量的可用性（在你發佈的示例代碼中）沒有很好的理由。

---

編輯2：試想想它，你路過Object引用ByRef？如果是這樣，我想這可能是一個合法的理由（儘管我懷疑你有這樣做的充分理由）。

如果是這種情況，您只需要將您的Object轉換回ITest即可使用ITest的成員。 （見，因爲你已經有的ITest變量i，這就是爲什麼我一直在質疑你上溯造型到Object）

Answer 3

實際上，你可以調用接口，而不必強制轉換它，如果你沒有選項嚴格集但是，您將收到嚴格設置爲選項的錯誤。

但是，再次，Option Strict設置爲on的這種做法的正確方法是什麼？

編輯 我得到了答案，這適用於我的場景，在很大程度上適用於上述問題。與我的情況唯一的區別是接口是在一個衛星類中實現的（因此作爲一個程序集加載） 因此，這裏提供了適用於上述問題的代碼解決方案，如果接口在加載的程序集中實現運行。

For Each x In AppDomain.CurrentDomain.GetAssemblies() 
    Dim myType = (From t In x.GetTypes() Where t.IsClass And t.GetInterface("ITest") IsNot Nothing Select t).FirstOrDefault 
    'you can add other criteria inside the linq expression above to match, e.g the assembly version and/or the assembly string (which contains assembly's version) 
    If myType IsNot Nothing Then 
     Dim obj = Assembly.GetAssembly(myType).CreateInstance(myType.FullName) 
     Dim result As Boolean = CType(myType.InvokeMember("ITest_GetResult", BindingFlags.Default Or BindingFlags.InvokeMethod, Nothing, obj, Nothing), Boolean) 
    End If 
Next 

Answer 4

這是「裝箱和取消裝箱」（或不裝箱）的副作用。我不記得任何我會推薦的特定資源，但我會閱讀一些博客，詳細介紹將對象類型轉換回來的背後知識。基本上，因爲你使用的是後期綁定，所以VB IDE /編譯器會將你的代碼轉換成代碼，該代碼使用針對該實例類型（即Test）的反射。請參考下面的代碼說明：

Dim o As Object 
o = i '<-- right here is "boxing". its "boxed" up and can be treated 
''as an "Object" object. This allows it to be treated [covariantly][1] 

'' What you typed: 
Dim b As Boolean = o.GetResult() '<--right here it needs to be unboxed 
''in order for the compiler to map the interface implementation. What 
''happens instead is shown below. 

'' What compiled: (after converted back to vb code from IL) 
'' .....keep in mind, o.GetType() returns the same type as 
''GetType(Test), NOT GetType(ITest) 
Dim b As Boolean = o.GetType().InvokeMember("GetResult", 
    BidingFlags.Instance or BidningFlags.InvokeMethod 
    Or BindingFlags, Nothing, o, New Object() {}) 

現在實際的代碼可能有一點不同，我只是接近它來證明這是怎麼回事。從類型對象調用類似的成員只會搜索並執行已聲明的實例成員。運行時不搜索並嘗試映射接口實現（出於性能，安全性和其他許多原因）。我不確定你是否有任何限制，但你真的需要去改變所有使用相同變量的代碼。每個方法調用和屬性獲取/設置都通過反射進行路由。