日历控件Xtreme Calendar使用教程：如何将自定义颜色应用于单个单元格-控件新闻-慧都网

日历控件Xtreme Calendar使用教程：如何将自定义颜色应用于单个单元格

翻译|使用教程|编辑：鲍佳佳|2020-07-08 09:56:21.363|阅读 264 次

概述：codejock推出的日历控件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

在上面的示例中，您可以看到您所需要做的就是查找特定的时间和星期，然后指定背景色。

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

更改日历界面样式效果图