在对象中执行Icomparable接口

ZDNet软件频道　时间：2003-10-16　作者：ZDNet China | 　我要评论()
本文关键词：

VB.NET充分地利用了很多新的接口。在很多时候程序中的对象需要与.NET框架中的其他对象发生关联，此时对象需要执行这些接口。其中一个重要的新的接口即为Icomparable。

Icomparable用于比较两个对象。如果你想要将数组中的对象进行分类或者查询的时候，请使用Icomparable接口。

下面的代码显示了执行Icomparable接口的一个类：

Public Class SortClass
    Implements IComparable

    Private cstrValue1 As String

    Public Sub New(ByVal Value1 As String)
        cstrValue1 = Value1
    End Sub

    Public Function CompareTo(ByValobj As Object) As Integer Implements System.IComparable.CompareTo
        Dim objCompareTo As SortClass

        If TypeOfobj Is SortClass Then
            objCompareTo = obj
            Select Case objCompareTo.Value1
                Case Me.Value1
                    Return 0
                Case Is < Me.Value1
                    Return 1
                Case Is > Me.Value1
                    Return -1
            End Select
        Else
            Throw New System.ArgumentException( _
                "Object is not the same type.")
        End If
    End Function

    Public Property Value1() As String
        Get
            Return cstrValue1
        End Get
        Set(ByVal Value As String)
            cstrValue1 = Value
        End Set
    End Property
End Class