default.aspx.vb

對c#初學者參考..為課題asp.net 2.0教材代碼

Imports System
Imports System.Collections

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("Scott", "Hanselman")
        Dim bill As New Person("Bill", "Evjen")
        Dim srini As New Person("Srinivasa", "Sivakumar")

        Dim people As New PersonList()
        people.Add(scott)
        people.Add(bill)
        people.Add(srini)

        For Each p As Person In people
            Response.Write(p.FullName & "<BR/>")
        Next

        For i As Integer = 0 To people.Count - 1
            Response.Write(people(i).FullName & "<BR/>")
        Next

    End Sub
End Class