给Calendar添加标签

 

给日历上特殊的日子，加一个标签。

一是要判断日期，是不是特殊的日期。二是在Calendar呈现(Render)之前进行一些处理。

1.      在页面上放一个Calendar

2.      编写Calendar的DayRender事件

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

        If e.Day.Date.Month = 7 And e.Day.Date.Day = 7 Then

            Dim l As New Label

            With l

                .Text = "抗日纪念日"

                .BackColor = Drawing.Color.Red

                .BorderStyle = BorderStyle.Solid

                .BorderWidth = 1

            End With

            e.Cell.Controls.Add(l)

        End If

    End Sub

Ok了，效果如下：

循序渐进，先从简单学起。