Collections ASP.Net Tutorial

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="_Default" %>



    Untitled Page


    
    

    
    

    


File: Default.aspx.vb
Imports Microsoft.VisualBasic
Public Class Person
    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
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 = {bill, scott, srini}
        Dim indexOfC As Integer = Array.IndexOf(people, bill)
        Response.Write("C is at " & indexOfC & "
")
        Dim indexOfA As Integer = Array.IndexOf(people, scott)
        Response.Write("A is at " & indexOfA & "
")
        Dim scott2 As New Person("A", "B")
        Dim indexOfA2 As Integer = Array.IndexOf(people, scott2)
        Response.Write("A #2 is at " & indexOfA2 & "
")
    End Sub
End Class