25 lines
805 B
VB.net
25 lines
805 B
VB.net
Namespace Search
|
|
Public Class SearchToken
|
|
|
|
Public Class AttributeValueToken
|
|
Public AttributeTitle As String
|
|
Public AttributeId As Integer
|
|
Public TermValue As String
|
|
Public TermId As Integer
|
|
|
|
Public Overrides Function GetHashCode() As Integer
|
|
Return (TermId.GetHashCode & AttributeId.GetHashCode).GetHashCode()
|
|
End Function
|
|
|
|
Public Overrides Function Equals(obj As Object) As Boolean
|
|
Return Me.GetHashCode() = DirectCast(obj, AttributeValueToken).GetHashCode()
|
|
End Function
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return $"{TermValue} ({AttributeTitle})"
|
|
End Function
|
|
End Class
|
|
|
|
End Class
|
|
|
|
End Namespace |