asp學習筆記2

multivew控件可以顯示多個視圖控件，使用時把多個view控件放入multiview控件中，然後通過multiview控件來選擇把什麼樣的控件呈現給用戶

Calendar控件可以顯示日期，並且可以自定義顯示，代碼如下

Partial Class democelander
    Inherits System.Web.UI.Page
    Private holidays(12, 31) As String
    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        Select Case Me.DropDownList1.SelectedValue
            Case "week"
                Me.Calendar1.SelectionMode = CalendarSelectionMode.DayWeek
            Case "day"
                Me.Calendar1.SelectionMode = CalendarSelectionMode.Day
            Case "dayweekmonth"
                Me.Calendar1.SelectionMode = CalendarSelectionMode.DayWeekMonth
            Case "none"
                Me.Calendar1.SelectionMode = CalendarSelectionMode.None
        End Select
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        holidays(3, 15) = "七夕情人節"
    End Sub

    Protected Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
        Dim d As CalendarDay
        Dim c As TableCell

        d = e.Day
        c = e.Cell

        If d.IsOtherMonth Then
            c.Controls.Clear()
        Else
            Try
                Dim Hol As String = holidays(d.Date.Month, d.Date.Day)

                If Hol <> "" Then
                    c.Controls.Add(New LiteralControl("<br>" + Hol))
                End If
            Catch exc As Exception
                Response.Write(exc.ToString())
            End Try
        End If
    End Sub
End Class