default.aspx.vb

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

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 peopleHashtable As New Dictionary(Of String, Person)
        peopleHashtable.Add("sh", scott)
        peopleHashtable.Add("be", bill)
        peopleHashtable.Add("ss", srini)

        Dim found As Person = peopleHashtable("sh")
        Response.Write(found.FullName & "<BR/>")
        found = peopleHashtable("be")
        Response.Write(found.FullName & "<BR/>")
        found = peopleHashtable("sh")
        Response.Write(found.FullName & "<BR/>")

    End Sub
End Class