Export (0) Print
Expand All

IComparable Interface

Defines a generalized type-specific comparison method that a value type or class implements to order or sort its instances.

Namespace:  System
Assembly:  mscorlib (in mscorlib.dll)

'Declaration
<ComVisibleAttribute(True)> _
Public Interface IComparable

The IComparable type exposes the following members.

  NameDescription
Public methodSupported by Silverlight for Windows PhoneSupported by Xbox 360CompareToCompares the current instance with another object of the same type and returns an integer that indicates whether the current instance precedes, follows, or occurs in the same position in the sort order as the other object.
Top

This interface is implemented by types whose values can be ordered or sorted. It requires that implementing types define a single method, CompareTo, that indicates whether the position of the current instance in the sort order is before, after, or the same as a second object of the same type. The instance's IComparable implementation is called automatically by methods such as Array.Sort.

All numeric types (such as Int32 and Double) implement IComparable, as do String, Char, and DateTime. Custom types should also provide their own implementation of IComparable to allow object instances to be ordered or sorted.

The following code sample illustrates the implementation of IComparable and the requisite CompareTo method.


Imports System.Collections

Public Class Temperature
   Implements IComparable
   ' The temperature value
   Protected temperatureF As Double

   Public Overloads Function CompareTo(ByVal obj As Object) As Integer _
       Implements IComparable.CompareTo

      If obj Is Nothing Then Return 1

      Dim otherTemperature As Temperature = TryCast(obj, Temperature)
      If otherTemperature IsNot Nothing Then
         Return Me.temperatureF.CompareTo(otherTemperature.temperatureF)
      Else
         Throw New ArgumentException("Object is not a Temperature")
      End If
   End Function

   Public Property Fahrenheit() As Double
      Get
         Return temperatureF
      End Get
      Set(ByVal Value As Double)
         Me.temperatureF = Value
      End Set
   End Property

   Public Property Celsius() As Double
      Get
         Return (temperatureF - 32) * (5 / 9)
      End Get
      Set(ByVal Value As Double)
         Me.temperatureF = (Value * 9 / 5) + 32
      End Set
   End Property
End Class

Public Module Example
   Public Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
      Dim temperatures(9) As Temperature
      ' Initialize random number generator.
      Dim rnd As New Random()

      ' Generate 10 temperatures between 0 and 100 randomly.
      For ctr As Integer = 1 To 10
         Dim degrees As Integer = rnd.Next(0, 100)
         Dim temp As New Temperature
         temp.Fahrenheit = degrees
         temperatures(ctr - 1) = temp
      Next

      ' Sort Array.
      Array.Sort(temperatures)

      For Each temp As Temperature In temperatures
         outputBlock.Text &= temp.Fahrenheit & vbCrLf
      Next
   End Sub
End Module
' The example displays the following output (individual
' values may vary because they are randomly generated):
'       2
'       7
'       16
'       17
'       31
'       37
'       58
'       66
'       72
'       95


Silverlight

Supported in: 5, 4, 3

Silverlight for Windows Phone

Supported in: Windows Phone OS 7.1, Windows Phone OS 7.0

XNA Framework

Supported in: Xbox 360, Windows Phone OS 7.0

For a list of the operating systems and browsers that are supported by Silverlight, see Supported Operating Systems and Browsers.

Community Additions

ADD
Show:
© 2014 Microsoft