selected events collection

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

   I want to scan a list of events that an user has selected (with Ctrl-Click)

Your documentation  (Xtreme Calendar ActiveX Control v10.3) says that if I take the property:
ActiveView.GetSelectedEvents
I can handle two properties of this object:
Count  (the umber of events selected)
ViewEvent (it should be a collection of selected events)

I cannot find this ViewEvent 
why?
it's implemented, isn't it?
or it's only a little mistake in the documentation?

there is another way to have a collection of all the selected events?

thank you in advance

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
WaaZ Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 31 January 2006 Location: United Kingdom Status: Offline Points: 103	Post Options Post Reply Quote WaaZ Report Post Thanks(0) Quote Reply Topic: selected events collection Posted: 08 December 2006 at 7:16am
	I want to scan a list of events that an user has selected (with Ctrl-Click) Your documentation (Xtreme Calendar ActiveX Control v10.3) says that if I take the property: ActiveView.GetSelectedEvents I can handle two properties of this object: Count (the umber of events selected) ViewEvent (it should be a collection of selected events) I cannot find this ViewEvent why? it's implemented, isn't it? or it's only a little mistake in the documentation? there is another way to have a collection of all the selected events? thank you in advance

dentor Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 30 November 2005 Location: France Status: Offline Points: 102	Post Options Post Reply Quote dentor Report Post Thanks(0) Quote Reply Posted: 08 December 2006 at 7:54am
	Hello, Below is an example of browsing selected events to delete them: Private Sub DelSelEvents() Dim TotSelect As CalendarViewEvents Dim ViewEvt As CalendarViewEvent Set TotSelect = Calendar.ActiveView.GetSelectedEvents If TotSelect.Count > 0 Then For Each ViewEvt In TotSelect Set SaveEvent = ViewEvt.Event Calendar.DataProvider.DeleteEvent ViewEvt.Event Next Calendar.Populate End If End Sub I hope this will help.