default.aspx.vb

来自「對c#初學者參考..為課題asp.net 2.0教材代碼」· VB 代码 · 共 30 行

Imports System
Imports System.Collections
Imports System.Collections.Generic

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 List(Of Person)
        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