asp学习笔记2

最新推荐文章于 2025-07-24 16:47:42 发布

原创最新推荐文章于 2025-07-24 16:47:42 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #calendar #object #exception #string #class

asp.net2.0 专栏收录该内容

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