如何在模块中隐藏 Object.Equals() 方法？

Question

也许问题的标题不正确，因为模块中的方法不能被隐藏，但本质上我想隐藏一个再次声明它的基成员，并隐藏它而不失去调用它并返回的机会正确的值。

我通常为班级这样做：

<EditorBrowsable(EditorBrowsableState.Never)>
Public Shadows Function Equals(ByVal obj As Object) As Boolean
    Return MyBase.Equals(obj)
End Function

这适用于结构：

<EditorBrowsable(EditorBrowsableState.Never)>
Public Shadows Function Equals(ByVal obj As Object) As Boolean
    Return Object.Equals(obj, Me)
End Function

我发现尝试使用模块重现此行为的问题是我应该使用以下示例中的疑问参数来填充，因为我不能使用 Me、模块名称或构造函数，我明白了，但那我需要用什么？

Module TestModule

    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Function Equals(ByVal obj As Object) As Boolean
        Return Object.Equals(obj, ?)
    End Function

End Module

Answer 1

这是有规则的……只是你不能。

您只能在班级级别使用Shadows。这意味着 Shadows 元素的声明上下文必须是类，不能是源文件、命名空间、接口、模块、结构或过程。

这就是为什么你可以在结构和类中...

请查看更多here。在底部，它说明了阴影可以存在的上下文。

编辑 - 解决方案

当您可以使用标准的或创建您自己的函数来确定这两个对象是否为相等。

这里有一个简单的解决方案，您可以使用它尝试和测试。此外，如果您想将Equals 用于许多对象，那么您将需要更多的结构来比较您所比较的对象，这会影响Equals 函数。

Module TestModule


    Sub Main()
        Dim a As New Person("Stack", "Overflow")
        Dim b As New Person("Stack", "Overflow")

        Console.WriteLine(a.Equals(b))

    End Sub

    Public Structure Person
        Private FirstName As String
        Private LastName As String

        Public Sub New(firstName As String, lastName As String)
            Me.FirstName = firstName
            Me.LastName = lastName
        End Sub

        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function Equals(ByVal obj As Object) As String
            Return If(Object.Equals(obj, Me), "TRUE", "FALSE").ToString
        End Function
    End Structure

End Module

现在您当然可能想知道为什么Equals 返回String，我故意这样做是为了让您可以看到它确实会影响基类，因为我返回的是不同的类型，否则您不能。您可以更改该函数以返回 Boolean 并更改返回值，它工作得很好。

Answer 2

在 Object 中定义的这个函数似乎是您要隐藏的函数：

Public Overridable Function Equals (obj As Object) As Boolean

但是，这在模块中不存在。在您的模块名称是共享名称之后，您看到 Intellisense 建议的“等于”：

Public Shared Function Equals (objA As Object, objB As Object) As Boolean

您可以在documentation 中看到它们单独列出。要停止 Intellisense 的建议，只需将其包含在您的模块中即可：

<EditorBrowsable(EditorBrowsableState.Never)> _
Public Function Equals(objA As Object, objB As Object) As Boolean
    Return Object.Equals(objA, objB)
End Function

这似乎不是很好的设计