Mega Code Archive
Generic and nongeneric versions of the CompareTo method for Guid value
<![CDATA[
Imports System
Class Sample
Public Shared Sub Main()
Try
Dim a1 As Guid = New Guid("{CA761000-ED42-11CE-BACD-00AA0000B000}"), a2 As Guid = New Guid("{CA761000-ED42-11CE-BACD-00AA0000B000}")
Show(a1, a2, a1.CompareTo(a2), a1.CompareTo(CObj(a2)))
Catch e As Exception
Console.WriteLine(e)
End Try
End Sub
Public Shared Sub Show(var1 As [Object], var2 As [Object], resultGeneric As Integer, resultNonGeneric As Integer)
Console.WriteLine(var1)
Console.WriteLine(var2)
If resultGeneric = resultNonGeneric Then
If resultGeneric < 0 Then
Console.WriteLine("less than")
ElseIf resultGeneric > 0 Then
Console.WriteLine("greater than")
Else
Console.WriteLine("equal to")
End If
End If
End Sub
End Class
]]>