More Questions |
Post Reply |
Author | |||
Yonger
Newbie Joined: 08 August 2005 Status: Offline Points: 9 |
Post Options
Thanks(0)
Posted: 09 August 2005 at 12:44pm |
||
Is there a way to disable the ability to click and drag events to other times? Is there an onclick type event I can override that will return the calendar event that has been clicked on? Do you have any plans to release any more documentation on the calandar? |
|||
sserge
Moderator Group Joined: 01 December 2004 Status: Offline Points: 1297 |
Post Options
Thanks(0)
|
||
Yes. There are following events: IsEditOperationDisabled, BeforeEditOperation See calendar VB demo project for example
Yes. See method CalendarControl.ActiveView.HitTest and in the returned object use member: CalendarHitTestInfo.ViewEvent.Event Note that it could be Nothing. See calendar VB demo project for more detailed example.
Sure. -- WBR, Serge |
|||
Yonger
Newbie Joined: 08 August 2005 Status: Offline Points: 9 |
Post Options
Thanks(0)
|
||
Just had a chance to look at these issues again. Thanks for the help. Below is my code if anyone else runs into these issues. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Disable dragging of events on the calendar '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Calendar_BeforeEditOperation1(ByVal sender As Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_BeforeEditOp erationEvent) Handles Calendar.BeforeEditOperation e.cancelOperation = True End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Get info on the event you click on... '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Calendar_MouseDownEvent(ByVal sender As Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_MouseDownEve nt) Handles Calendar.MouseDownEvent Dim IT As XtremeCalendarControl.CalendarHitTestInfo IT = Calendar.ActiveView.HitTest() If IT.HitCode = 8224 Or IT.HitCode = 32 Then MsgBox(IT.ViewEvent.Event.Subject + " - " + IT.ViewEvent.Event.Location) Else MsgBox("Nothing there!") End If End Sub |
|||
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |