VB.NET：无法在 System.Object 实例上使用扩展方法

Question

我可以为 System.Object 的所有子类（所有东西）创建一个扩展方法吗？

示例：

<Extension>
Public Function MyExtension(value As Object) As Object
    Return value
End Function

上述函数不适用于对象实例：

Dim myObj1 As New Object()
Dim myObj2 = myObj1.MyExtension()

编译器不接受它，是我的计算机有问题吗？ :)

更新
该问题似乎仅发生在 VB 中，其中通过反射查找对象的成员 (后期绑定）。

回答后更新
仅供参考，因为 vb 具有 C# 所缺乏的优点，即导入模块的成员被导入到全局范围，因此您仍然可以在没有包装器的情况下使用此函数：

Dim myObj2 = MyExtension(myObj1)

Answer 1

似乎不支持对象上的扩展方法是 VB 中的设计决策。

因此，我们唯一能做的就是
防止扩展方法
彻底打破现有的后期
绑定代码是为了防止他们
用于任何键入为
对象。

链接

Answer 2

请参阅我不久前问过的这个问题。基本上，如果您愿意，您可以在 VB.NET 中扩展对象；但出于向后兼容性的原因，声明为 Object 的变量将无法使用您的扩展方法。这是因为 VB.NET 支持 Object 上的后期绑定，因此访问扩展方法的尝试将被忽略，转而尝试从相关对象的类型中查找同名的方法。

因此，以这个扩展方法为例：

<Extension()>
Public Sub Dump(ByVal obj As Object)
    Console.WriteLine(obj)
End Sub

这个扩展方法可以在这里使用：

' Note: here we are calling the Dump extension method on a variable '
' typed as String, which works because String (like all classes) '
' inherits from Object. '
Dim str As String = "Hello!"
str.Dump()

但不能在这里使用：

' Here we attempt to call Dump on a variable typed as Object; but '
' this will not work since late binding is a feature that came before '
' extension methods. '
Dim obj As New Object
obj.Dump()

问问自己为什么扩展方法不适用于 C# 中的 dynamic 变量，您就会明白其中的解释是一样的。

Answer 3

您不能直接为对象编写扩展方法，但使用泛型可以达到相同的结果：

<Extension()>
Public Function NullSafeToString(Of T)(this As T) As String
    If this is Nothing Then
       Return String.Empty
    End If
    Return this.ToString()
End Function

请注意，您可以在所有除了事物上调用此扩展方法。被声明为 Object 类型。对于这些，您必须直接调用它（完整的证明）或通过强制转换调用（这可能会失败，因为没有通用接口，所以有点冒险）。

Answer 4

jmoreno的答案 不能与Option Strict On一起使用 - 它会抛出错误：

BC30512 Option Strict On 不允许从“对象”到“整数”的隐式转换。

它需要从类到扩展模块的上下文切换：

Dim text1 As String = MyExtModule.NullSafeToString(DataGridView1.Rows(0).Cells(0).Value)

Answer 5

当然可以，尽管您可能希望节省在这里所做的事情，以免弄乱每个对象。我喜欢对 Object 使用的一个扩展方法是名为 IsIn() 的方法，其功能与 SQL IN() 语句类似。很高兴说这样的话：

If someString.IsIn("a", "b", "c") Then
   DoSomething()
Else If someInt.IsIn(1, 2, 3) Then
   DoSomethingElse()
Else If someObj.IsIn(1, "q", #7/1/2010#) Then
   DoSomethingTheThirdWay()
End If

---

编辑 -

在下面添加了 IsIn() 扩展方法的实现以帮助评论者。

Imports System.Runtime.CompilerServices

Public Module ObjectExtensions
  <Extension()>
  Public Function IsIn(obj As Object, ParamArray values() As Object) As Boolean
    For Each val As Object In values
      If val.Equals(obj) Then Return True
    Next
    Return False
  End Function
End Module

Answer 6

如果你对对象智能进行太多扩展，它可能会变得不太有用，但它是完全有效的。

以下是对象信息的对象扩展方法的示例：

http://www.developer.com/net/csharp/article.php/3718806/NET-Tip-Using-Extension-Methods.htm