Collections ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. Collections
  4. Sorting arrays of Person (VB)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="_Default" %>



    Untitled Page


    
    

    
    

    


File: Default.aspx.vb
Imports Microsoft.VisualBasic
Public Class Person
    Implements IComparable
    Dim FirstName As String
    Dim LastName As String
    Public Sub New(ByVal First As String, ByVal Last As String)
        FirstName = First
        LastName = Last
    End Sub
    Public ReadOnly Property FullName() As String
        Get
            Return FirstName & " " & LastName
        End Get
    End Property
    Public Function CompareTo(ByVal obj As Object) _
        As Integer Implements IComparable.CompareTo
        If Not TypeOf (obj) Is Person Then
            Throw New ArgumentException("Object is not a Person!")
        End If
        Dim p2 As Person = CType(obj, Person)
        Dim lastNameResult As Integer = Me.LastName.CompareTo(p2.LastName)
        If lastNameResult = 0 Then
            Dim firstNameResult As Integer = Me.FirstName.CompareTo(p2.FirstName)
            Return firstNameResult
        Else
            Return lastNameResult
        End If
    End Function
End Class
Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles Me.Load
        Dim scott As New Person("A", "B")
        Dim bill As New Person("C", "D")
        Dim srini As New Person("E", "F")
        Dim people() As Person = {scott, bill, srini}
        Response.Write("Unsorted. We used foreach.
")
        For Each p As Person In people
            Response.Write(p.FullName & "
")
        Next
        Response.Write("Sort...
")
        Array.Sort(people)
        Response.Write("Sorted. We used foreach.
")
        For Each p As Person In people
            Response.Write(p.FullName & "
")
        Next
    End Sub
End Class