More Questions
Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Calendar
Forum Description: Topics Related to Codejock Calendar
URL: https://forum.codejock.com/forum_posts.asp?TID=2704
Printed Date: 15 November 2026 at 11:03am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com
Topic: More Questions
Posted By: Yonger
Subject: More Questions
Date 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? |
Replies:
Posted By: sserge
Date Posted: 10 August 2005 at 7:33am
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 |
Is there a way to disable the ability to click and drag events to other times?Posted By: Yonger
Date Posted: 23 August 2005 at 3:12pm
|
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 |