我实现了一个 PagedModel 类来包装 IEnumerable,以便为我的 MVC 应用程序中的网格提供分页数据。我使用 Resharper 自动生成的平等代码告诉它检查数据、总行数、页码和页面大小字段。这是课程代码:
Public Class PagedModel(Of T)
Public Property PageSize As Integer
Public Property PageNumber As Integer
Public Property ModelData As IEnumerable(Of T)
Public Property TotalRecords As Integer
Public Overloads Function Equals(ByVal other As PagedModel(Of T)) As Boolean
If ReferenceEquals(Nothing, other) Then Return False
If ReferenceEquals(Me, other) Then Return True
Return other._PageSize = _PageSize AndAlso other._PageNumber = _PageNumber AndAlso Equals(other._ModelData, _ModelData) AndAlso other._TotalRecords = _TotalRecords
End Function
Public Overloads Overrides Function Equals(ByVal obj As Object) As Boolean
If ReferenceEquals(Nothing, obj) Then Return False
If ReferenceEquals(Me, obj) Then Return True
If Not Equals(obj.GetType(), GetType(PagedModel(Of T))) Then Return False
Return Equals(DirectCast(obj, PagedModel(Of T)))
End Function
Public Overrides Function GetHashCode() As Integer
Dim hashCode As Long = _PageSize
hashCode = CInt((hashCode * 397) Xor _PageNumber Mod Integer.MaxValue)
If _ModelData IsNot Nothing Then hashCode = CInt(((hashCode * 397) Xor _ModelData.GetHashCode()) Mod Integer.MaxValue)
hashCode = CInt((hashCode * 397) Xor _TotalRecords Mod Integer.MaxValue)
Return CInt(hashCode Mod Integer.MaxValue)
End Function
End Class
我发现对 Equals(other._ModelData, _ModelData) 的调用很奇特,因为 AFAIK 会检查它是否是同一个对象,而不是包含的项目是否相同。因为无论如何我的测试都失败了,所以我继续将其更改为 other._ModelData.Equals(_ModelData) 但没有成功。然后我在调试时反映到它,发现 other._ModelData.GetType().GetMethod("Equals",{GetType(Object)}).DeclaringType 是 Object!显然,这将导致比较失败。
我想出了一个解决方案来创建一个 EnumerableEquals 方法,该方法比较两个枚举中的每个项目以确认它们是相同的,但它看起来很草率。我可以做些什么来使用正常的 .Equals 方法吗?
Private Function EnumerableAreEqual(ByVal a As IEnumerable(Of T), ByVal b As IEnumerable(Of T)) As Boolean
b = b.ToList() 'avoid multiple query execution
Return a.All(Function(item) b.Contains(item))
End Function