使用Xtreme Calendar您可以更改日历中每个单元格的背景颜色。这可以帮助你创建诸如自定义工作周遮罩层之类的任务。

点击下载Xtreme Calendar最新试用版

要更改时间单元的背景颜色，您需要做的就是在绘制单元之前使用BeforeDrawDayViewCell事件更改颜色。调用BeforeDrawDayViewCell事件，再用日和周视图绘制每个单元。BeforeDrawDayViewCell事件的CellParams参数包含有关将要绘制的时间单元的信息，例如日期，星期几，时间，选定状态和背景颜色。

'The BeforeDrawDayViewCell event is called before each time cell is drawn
'in Day View and WorkWeek View.
Private Sub CalendarControl_BeforeDrawDayViewCell(ByVal CellParams As _
                        XtremeCalendarControl.CalendarDayViewCellParams)
    ' standard colors are
    ' non-work cell Bk = RGB(255, 244, 188)
    '     work cell Bk = RGB(255, 255, 213)
 
    'Color time cells 8am to 12pm, Monday to Friday (work hours)
    If TimeValue(CellParams.BeginTime) >= #8:00:00 AM# And _
                        TimeValue(CellParams.BeginTime) < #12:00:00 PM# _ And Weekday(CellParams.BeginTime) <> 1 And _
                        Weekday(CellParams.BeginTime) <> 7 Then
        CellParams.BackgroundColor = RGB(255, 255, 213)
    End If
 
    'Color time cells 2pm to 4pm, Monday to Friday (work hours)
    If TimeValue(CellParams.BeginTime) >= #2:00:00 PM# And _
                        TimeValue(CellParams.BeginTime) < #4:00:00 PM# _ And Weekday(CellParams.BeginTime) <> 1 And _
                        Weekday(CellParams.BeginTime) <> 7 Then
       CellParams.BackgroundColor = RGB(255, 255, 213)
    End If
 
    'Color time cells 11am to 3pm, Saturday (work hours)    
    If TimeValue(CellParams.BeginTime) >= #11:00:00 AM# And _
                        TimeValue(CellParams.BeginTime) < #3:00:00 PM# _ And Weekday(CellParams.BeginTime) = 7 Then CellParams.BackgroundColor = RGB(255, 255, 213) End If End Sub

下面是上面代码的结果。创建了自定义工作周掩码。您可以将其用于其他有用的地方，例如更改当前所选时间单元的背景颜色。

如果你对我们的产品感兴趣或者有任何疑问，欢迎咨询慧都在线客服>>