Array Sort Object who implements the IComparable : IComparable « Data Structure « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
VB.Net » Data Structure » IComparableScreenshots 
Array Sort Object who implements the IComparable
Array Sort Object who implements the IComparable

Imports System

Public Class MainClass
    
    Shared Sub Main(ByVal args As String())
        Dim student(4As Student
        student(0= New Student("A""A")
        student(1= New Student("B""A")
        student(2= New Student("C""B")
        student(3= New Student("D""B")
        student(4= New Student("E""C")

        ' Sort.
        Array.Sort(student)

        ' Display the results.
        Dim txt As String = ""
        For i As Integer = To student.GetUpperBound(0)
            Console.WriteLinestudent(i).ToString() )
        Next i
    End Sub

End Class
  
Public Class Student
    Implements IComparable

    Public FirstName As String
    Public LastName As String

    Public Sub New(ByVal first_name As String, ByVal last_name As String)
        FirstName = first_name
        LastName = last_name
    End Sub

    Public Overrides Function ToString() As String
        Return LastName & ", " & FirstName
    End Function

    Public Function CompareTo(ByVal obj As ObjectAs Integer _
     Implements System.IComparable.CompareTo
        Dim other_Student As Student = DirectCast(obj, Student)
        Return String.Compare(Me.ToString, other_Student.ToString)
    End Function
End Class

           
       
Related examples in the same category
1.Binary SearchObject who implements the IComparableBinary SearchObject who implements the IComparable
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.