default.aspx.vb

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

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

        Dim peopleSortedList As SortedList = New SortedList(peopleHashtable)
        For Each p As Person In peopleSortedList.Values
            Response.Write(p.FullName & "<BR/>")
        Next
        Response.Write("Index of Srinivasa: " & peopleSortedList.IndexOfKey("ss"))
    End Sub
End Class