Calendar Options

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello,
the calendarcontrol sample have the calendar options with the starting and ending time (office who will be open for straight 8 or more hours), how about the office that will be open from certain time (8AM) then closed at (130PM), the it will be open from (3PM to 830PM).
is there any way to add in this calendar option to add 2 more boxes that will let the user to change the hours everytime he load the option window.?
I know how to do using code, but I wanted to be added in the option window.
Thank you,

Code:

Private Sub CalendarControl_BeforeDrawDayViewCell(ByVal CellParams As XtremeCalendarControl.CalendarDayViewCellParams)

    If TimeValue(CellParams.BeginTime) >= # 1:30:00 PM # And TimeValue(CellParams.BeginTime) < # 3:00:00 PM # _
       And Weekday(CellParams.BeginTime) <> 1 And Weekday(CellParams.BeginTime) <> 7 Then
        CellParams.BackgroundColor = RGB(255, 244, 188)
    End If
End Sub

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
moe188 Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 27 March 2006 Status: Offline Points: 220	Post Options Post Reply Quote moe188 Report Post Thanks(0) Quote Reply Topic: Calendar Options Posted: 06 December 2007 at 2:09pm
	Hello, the calendarcontrol sample have the calendar options with the starting and ending time (office who will be open for straight 8 or more hours), how about the office that will be open from certain time (8AM) then closed at (130PM), the it will be open from (3PM to 830PM). is there any way to add in this calendar option to add 2 more boxes that will let the user to change the hours everytime he load the option window.? I know how to do using code, but I wanted to be added in the option window. Thank you, Code: Private Sub CalendarControl_BeforeDrawDayViewCell(ByVal CellParams As XtremeCalendarControl.CalendarDayViewCellParams) If TimeValue(CellParams.BeginTime) >= # 1:30:00 PM # And TimeValue(CellParams.BeginTime) < # 3:00:00 PM # _ And Weekday(CellParams.BeginTime) <> 1 And Weekday(CellParams.BeginTime) <> 7 Then CellParams.BackgroundColor = RGB(255, 244, 188) End If End Sub