Disable Event MultiSelection

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

   Dear Professionals:
I would like to know how to let users select one sngle event only in the DayView.

Thanks!

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Bernie Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 05 July 2007 Location: Taiwan Status: Offline Points: 109	Post Options Post Reply Quote Bernie Report Post Thanks(0) Quote Reply Topic: Disable Event MultiSelection Posted: 02 February 2008 at 2:42am
	Dear Professionals: I would like to know how to let users select one sngle event only in the DayView. Thanks!
	Bernie Ho, Planning Manager + IELTS specialist + part-time programmer Taiwan, R.O.C

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: 02 February 2008 at 6:09am
	Hello Bernie, I think you can put theses instructions in the SelectionChanged Event of the Calendar Control to prevent the selection of a second event: Private Sub Calendar_SelectionChanged(ByVal SelType As XtremeCalendarControl.CalendarSelectionChanged) If SelType <> xtpCalendarSelectionEvents Then Exit Sub Dim TotSelect As CalendarViewEvents Dim ViewEvt As CalendarViewEvent dim i as long Set TotSelect = Calendar.ActiveView.GetSelectedEvents If TotSelect.Count > 1 Then For i=0 to TotSelect.Count - 2 TotSelect.ViewEvent(i).Selected = False Next End If End Sub