codejock推出的日历控件Xtreme Calendar可以帮助你改变一层不变的日历界面样式,使用它您可以轻松定义每个单元格以及每个界面的样式风格,下面是我们的具体教程含代码
使用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
在上面的示例中,您可以看到您所需要做的就是查找特定的时间和星期,然后指定背景色。
下面是上面代码的结果。创建了自定义工作周掩码。您可以将其用于其他有用的地方,例如更改当前所选时间单元的背景颜色。

如果你对我们的产品感兴趣或者有任何疑问,欢迎咨询在线客服>>
标签:
声明:本站部分文章及图片源自用户投稿,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!