Greg1997
Member
How to set CaseInsensitiveComparer for OrderedDictionary?
Thanks,
Greg
Thanks,
Greg
[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] orddic [/SIZE][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=2] Specialized.OrderedDictionary([/SIZE][SIZE=2][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=2] CaseInsensitiveComparer)
[/SIZE]
Public Class CIComparer
Implements IEqualityComparer
Dim myComparer As CaseInsensitiveComparer
Public Sub New()
myComparer = CaseInsensitiveComparer.DefaultInvariant
End Sub
Public Function Equals1(ByVal x As Object, ByVal y As Object) _
As Boolean Implements IEqualityComparer.Equals
If (myComparer.Compare(x, y) = 0) Then
Return True
Else
Return False
End If
End Function
Public Function GetHashCode1(ByVal obj As Object) _
As Integer Implements IEqualityComparer.GetHashCode
Return obj.ToString().ToLower().GetHashCode()
End Function
End Class
Dim orddic As New Specialized.OrderedDictionary(New CIComparer)