default.aspx.vb

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

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 peopleStack As New Stack()
        peopleStack.Push(scott)
        peopleStack.Push(bill)
        peopleStack.Push(srini)

        Dim x As Person = CType(peopleStack.Pop(), Person)
        Response.Write(x.FullName & "<BR/>")

        x = CType(peopleStack.Pop(), Person)
        Response.Write(x.FullName & "<BR/>")

        x = CType(peopleStack.Peek(), Person) 'Peek, not Pop
        Response.Write(x.FullName & "<BR/>")

        x = CType(peopleStack.Pop(), Person)
        Response.Write(x.FullName & "<BR/>")

    End Sub
End Class