Arraylist ταξινόμηση με βάση 2 στοιχεία & implementation of compareTo

Chrysostomos Kolovos — Thu, 19 Mar 2009 19:51:19 GMT

Public Class pinakas
    Implements IComparable

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

        Dim Compare As pinakas = DirectCast(obj, pinakas)
        Dim result As Integer = Me.Num1.CompareTo(Compare.Num1)
        If result = 0 Then
            result = Me.Num2.CompareTo(Compare.Num2)
        End If
        Return result

    End Function

    Dim StrParam1 As String
    Dim StrParam2 As String
    Dim StrParam3 As String
    Dim BoolNum1 As Boolean
    Dim BoolNum2 As Boolean

    Public Sub New(ByVal StrParam1 As String, ByVal StrParam2 As String, _
                    ByVal StrParam3 As String, ByVal BoolNum1 As Boolean, _
                    ByVal BoolNum2 As Boolean)

        Param1 = StrParam1
        Param2 = StrParam2
        Param3 = StrParam3
        Num1 = BoolNum1
        Num2 = BoolNum2

    End Sub

    Public Property Param1() As String
        Get
            Return StrParam1
        End Get
        Set(ByVal value As String)
            StrParam1 = value
        End Set
    End Property

    Public Property Param2() As String
        Get
            Return StrParam2
        End Get
        Set(ByVal value As String)
            StrParam2 = value
        End Set
    End Property

    Public Property Param3() As String
        Get
            Return StrParam3
        End Get
        Set(ByVal value As String)
            StrParam3 = value
        End Set
    End Property

    Public Property Num1() As Boolean
        Get
            Return BoolNum1
        End Get
        Set(ByVal value As Boolean)
            BoolNum1 = value
        End Set
    End Property

    Public Property Num2() As Boolean
        Get
            Return BoolNum2
        End Get
        Set(ByVal value As Boolean)
            BoolNum2 = value
        End Set
    End Property

End Class

Πρώτα Βήματα - Γλώσσες προγραμματισμού

Arraylist ταξινόμηση με βάση 2 στοιχεία & implementation of compareTo