创建共享的 IEqualityComparer

Question

我正在做一些需要自定义比较器的 LINQ，因此我创建了一个实现 IEqualityComparer 的新类。但是，当我使用它时，我每次都必须创建它的实例。

Dim oldListOnly = oldList.Except(newList, New MyEqualityComparer)
Dim newListOnly = newList.Except(oldList, New MyEqualityComparer)

我可能误解了 .NET 的工作原理，但每次创建一个新的比较器似乎很浪费。我真的只想要一个实例（相当于 C++/C# 中的 static）。

所以我尝试创建一个“静态”类，它在 vb.net 中是一个模块。但出现“Implements”在模块中无效错误。

然后，我尝试在我的类上创建 Equals 和 GetHashCode 函数共享方法，但收到此错误： 实现接口成员的方法不能声明为“共享”。

有什么想法可以在这里实现我的目标吗？或者我只是误解了幕后发生的事情？

Answer 1

您的理解是正确的，尽管浪费不太明显。对于您的情况，您可以使用单例模式，通常如下所示：

Public Class MyEqualityComparer
    Implements IEqualityComparer(Of whatever)

    Private Sub New()
        'no outsider creation
    End Sub

    Private Shared ReadOnly _instance As New MyEqualityComparer()
    Public Shared ReadOnly Property Instance As MyEqualityComparer
        Get
            Return _instance
        End Get
    End Property

    'other code

End Class

Answer 2

为什么不简单地做

Dim comparer = New MyEqualityComparer
Dim oldListOnly = oldList.Except(newList, comparer )
Dim newListOnly = newList.Except(oldList, comparer )

Answer 3

需要有一个实现 IEqualityComparer 的具体类型的实例。然而，您可以对模块执行的操作是定义一个初始化为“New EqualityComparer”的公共实例。然后，您可以将该默认实例传递给 except 方法。

像这样的东西：

Public Module MyComparer
    Public acmeComparer As acmeCompareType

    Public Class acmeCompareType
        Implements IEqualityComparer(Of System.Drawing.Point)

        Public Function Equals1(x As System.Drawing.Point, y As System.Drawing.Point) As Boolean Implements System.Collections.Generic.IEqualityComparer(Of System.Drawing.Point).Equals
            Return Math.Abs(x.X) = Math.Abs(y.X) AndAlso Math.Abs(x.Y) = Math.Abs(y.Y)
        End Function

        Public Function GetHashCode1(obj As System.Drawing.Point) As Integer Implements System.Collections.Generic.IEqualityComparer(Of System.Drawing.Point).GetHashCode
            ' Note that obj is a struct passed by value, so we can safely modify it here
            ' (without affecting the caller's instance)
            obj.X = Math.Abs(obj.X)
            obj.Y = Math.Abs(obj.Y)
            Return obj.GetHashCode
        End Function
    End Class
End Module