Mega Code Archive

 

Categories / VB.Net / LINQ

 

Distinct with Object and IEqualityComparer

Imports System Imports System.Linq Imports System.Collections.Generic Public Class Item     Public Property Name As String     Public Property Code As Integer End Class Public Class ItemComparer     Implements IEqualityComparer(Of Item)     Public Function Equals1(ByVal x As Item, ByVal y As Item) As Boolean Implements IEqualityComparer(Of Item).Equals         If x Is y Then Return True         If x Is Nothing OrElse y Is Nothing Then Return False         Return (x.Code = y.Code) AndAlso (x.Name = y.Name)     End Function     Public Function GetHashCode1(ByVal product As Item) As Integer Implements IEqualityComparer(Of Item).GetHashCode         If product Is Nothing Then Return 0         Dim hashItemName = If(product.Name Is Nothing, 0, product.Name.GetHashCode())         Dim hashItemCode = product.Code.GetHashCode()         Return hashItemName Xor hashItemCode     End Function End Class Public Class Example     Public Shared Sub Main()                   Dim products() As Item =              {New Item With {.Name = "apple", .Code = 9},               New Item With {.Name = "orange", .Code = 4},               New Item With {.Name = "apple", .Code = 9},               New Item With {.Name = "lemon", .Code = 12}}                  ' Exclude duplicates.                  Dim noduplicates = products.Distinct()                  For Each product In noduplicates             Console.WriteLine(product.Name & " " & product.Code)         Next     End Sub End Class