Generic and nongeneric versions of the CompareTo method for Guid value : GUID « Development « VB.Net

1. VB.Net
2. Development
3. GUID

Generic and nongeneric versions of the CompareTo method for Guid value

  

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

   
    
  

Related examples in the same category