使用Xtreme Calendar您可以更改日歷中每個單元格的背景顏色。這可以幫助你創(chuàng)建諸如自定義工作周遮罩層之類的任務(wù)。

點(diǎn)擊下載Xtreme Calendar最新試用版

要更改時(shí)間單元的背景顏色，您需要做的就是在繪制單元之前使用BeforeDrawDayViewCell事件更改顏色。調(diào)用BeforeDrawDayViewCell事件，再用日和周視圖繪制每個單元。BeforeDrawDayViewCell事件的CellParams參數(shù)包含有關(guān)將要繪制的時(shí)間單元的信息，例如日期，星期幾，時(shí)間，選定狀態(tài)和背景顏色。

'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

下面是上面代碼的結(jié)果。創(chuàng)建了自定義工作周掩碼。您可以將其用于其他有用的地方，例如更改當(dāng)前所選時(shí)間單元的背景顏色。