EnsureVisible a CalendarEvent

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

How can I EnsureVisible a CalendarEvent. If I add a new CalendarEvent, that is one or two weeks in the future, i want to see this immediately after adding.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
McKloony Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340	Post Options Post Reply Quote McKloony Report Post Thanks(0) Quote Reply Topic: EnsureVisible a CalendarEvent Posted: 10 August 2011 at 7:01am
	How can I EnsureVisible a CalendarEvent. If I add a new CalendarEvent, that is one or two weeks in the future, i want to see this immediately after adding.
	Product: Xtreme SuitePro (ActiveX) 16.2.5 Platform: XP / Windows 7 Language: Visual Basic 6.0 SP6

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply Posted: 15 September 2011 at 3:29pm
	did you try Calendar.ActiveView.SelectViewEvent?

McKloony Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340	Post Options Post Reply Quote McKloony Report Post Thanks(0) Quote Reply Posted: 16 September 2011 at 7:38am
	Yes I tried, but presumably I have the wrong syntax. I dont know how to get a CalendarViewEvent from an CalendarEvent?
	Product: Xtreme SuitePro (ActiveX) 16.2.5 Platform: XP / Windows 7 Language: Visual Basic 6.0 SP6

McKloony Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340	Post Options Post Reply Quote McKloony Report Post Thanks(0) Quote Reply Posted: 17 September 2011 at 4:33am
	Calendar.ActiveView.SelectViewEvent needs a CalendarViewEvent Object. I only have a CalendarEvent Object in my function.
	Product: Xtreme SuitePro (ActiveX) 16.2.5 Platform: XP / Windows 7 Language: Visual Basic 6.0 SP6

Fabian Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 22 November 2004 Location: Switzerland Status: Offline Points: 336	Post Options Post Reply Quote Fabian Report Post Thanks(0) Quote Reply Posted: 17 September 2011 at 8:29am
	Hi McKloony That's my solution (TERID is the appointments data base ID stored as proprty in each event): For j = 0 To CalendarControl1.ActiveView.DaysCount - 1 For k = 0 To CalendarControl1.ActiveView.Days(j).ViewGroups.Count - 1 For l = 0 To CalendarControl1.ActiveView.Days(j).ViewGroups(k).ViewEvents.Count - 1 If CalendarControl1.ActiveView.Days(j).ViewGroups(k).ViewEvents(l).Event.CustomProperties.Property("TERID") = TERID Then Call CalendarControl1.DayView.EnsureVisible(CalendarControl1.ActiveView.Days(j).ViewGroups(k).ViewEvents(l)) Call CalendarControl1.ActiveView.SelectViewEvent(CalendarControl1.ActiveView.Days(j).ViewGroups(k).ViewEvents(l), True) CalendarControl1.Populate Exit For End If Next l Next k Next j Hope that helps Fabian
	Product: Xtreme SuitePro (ActiveX) version 16.2.3 Platform: Windows 7 (32bit) Language: Visual Basic 6.0 / SP6