cells coloured differently represent

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

   I wrote its own function for the cell representation.

But does not function.

Private Sub Besetzte_Zellen_anzeigen()

Dim CellParams As XtremeCalendarControl.CalendarDayViewCellParams

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

Did that already try out someone and does know me a helping?

THANKS

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Ingrid Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 20 December 2006 Location: United Kingdom Status: Offline Points: 10	Post Options Post Reply Quote Ingrid Report Post Thanks(0) Quote Reply Topic: cells coloured differently represent Posted: 16 August 2007 at 8:40am
	I wrote its own function for the cell representation. But does not function. Private Sub Besetzte_Zellen_anzeigen() Dim CellParams As XtremeCalendarControl.CalendarDayViewCellParams 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 Did that already try out someone and does know me a helping? THANKS

Rafael Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 26 November 2007 Location: United States Status: Offline Points: 28	Post Options Post Reply Quote Rafael Report Post Thanks(0) Quote Reply Posted: 26 November 2007 at 12:51pm
	Do you still have an issue with this function? If so, when (or from where) do you call this function? To be usefull you should call Besetzte_Zellen_anzeigen from CalendarControl_BeforeDrawDayViewCell(ByVal CellParams As XtremeCalendarControl.CalendarDayViewCellParams) ...and pass the CellParams to your Besetzte_Zellen_anzeigen function So take out the Dim CellParams As XtremeCalendarControl.CalendarDayViewCellParams line and add it as a parameter to your function