Lines Matching refs:val2
124 Private Shared Function compareData(val1 As Object, val2 As Object) As Boolean
125 If val1 Is Nothing And val2 Is Nothing OrElse _
126 val1 Is val2
129 If val1 Is Nothing And Not(val2 Is Nothing) OrElse _
130 Not (val1 Is Nothing) And val2 Is Nothing OrElse _
131 Not val1.GetType().Equals( val2.GetType())
140 DirectCast( val2, Array))
143 ret = DirectCast( val1, string) = DirectCast( val2, string)
146 ret = val1 Is val2
149 ret = compareStruct(val1, val2)
152 Dim a2 As Any = DirectCast( val2, Any)
156 ret = val1.Equals(val2)
188 Private Shared Function compareStruct( val1 As Object, val2 As Object) As Boolean
189 Debug.Assert( Not(val1 Is Nothing) And Not(val2 Is Nothing))
191 Dim t2 As Type = val2.GetType()
201 Dim fieldVal2 As Object = fields(i).GetValue(val2)