OGGETTO CALENDAR E VISUALIZZAZIONE EVENTI

Protected Sub Calendar1_DayRender(ByVal sender As Object, _
        ByVal e As DayRenderEventArgs) Handles Calendar1.DayRender
    ' Display vacation dates in yellow boxes with purple borders.
    Dim vacationStyle As New Style()
    With vacationStyle
        .BackColor = System.Drawing.Color.Yellow
        .BorderColor = System.Drawing.Color.Purple
        .BorderWidth = New Unit(3)
    End With

    ' Display weekend dates in green boxes.
    Dim weekendStyle As New Style()
    weekendStyle.BackColor = System.Drawing.Color.Green

    ' Vacation is from Nov 23, 2005 to Nov 30, 2005.
    If ((e.Day.Date >= New Date(2005, 11, 23)) _
            And (e.Day.Date <= New Date(2005, 11, 30))) Then
        e.Cell.ApplyStyle(vacationStyle)
    ElseIf (e.Day.IsWeekend) Then
        e.Cell.ApplyStyle(weekendStyle)
    End If
End Sub