Implementing custom event handlers in .NET

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

Hi,

I'm busy evaluating the CalendarPro Active-X in a VB.NET dev enviroment for our company, and have encountered some problems implementing custom event handlers for a MySQL data source.

Implementing doRetrieveDayEvents & doCreateEvent, for example, works fine, but doUpdateEvent doesn't get fired at all.

I've implemented following code directly in the frmMain class:

        Private Sub CalendarControl_doRetrieveDayEvents(ByVal sender As System.Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_DoRetrieveDayEventsEvent) Handles CalendarControl.DoRetrieveDayEvents

            dbController.doQuerySelectEvents(e.dtDay, e.events, CalendarControl.DataProvider, nUserID)

        End Sub

        Private Sub CalendarControl_doCreateEvent(ByVal sender As System.Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_DoCreateEventEvent) Handles CalendarControl.DoCreateEvent

            dbController.doQueryInsertEvent(e.newEventID, e.pEvent, CalendarControl.DataProvider, nUserID, e.bResult)

        End Sub

        Private Sub CalendarControl_doUpdateEvent(ByVal sender As System.Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_DoUpdateEventEvent) Handles CalendarControl.DoUpdateEvent

            MessageBox.Show("test doupdateevent") 'temp
            'dbController.doQueryUpdateEvent(e.pEvent, CalendarControl.DataProvider, nUserID, e.bResult)

        End Sub

Am I wrong putting above code directly in the main form?

Thanks in advance,

Laurent

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
zotteLORRE Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 31 August 2006 Location: Belgium Status: Offline Points: 5	Post Options Post Reply Quote zotteLORRE Report Post Thanks(0) Quote Reply Topic: Implementing custom event handlers in .NET Posted: 31 August 2006 at 5:42am
	Hi, I'm busy evaluating the CalendarPro Active-X in a VB.NET dev enviroment for our company, and have encountered some problems implementing custom event handlers for a MySQL data source. Implementing doRetrieveDayEvents & doCreateEvent, for example, works fine, but doUpdateEvent doesn't get fired at all. I've implemented following code directly in the frmMain class: Private Sub CalendarControl_doRetrieveDayEvents(ByVal sender As System.Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_DoRetrieveDayEventsEvent) Handles CalendarControl.DoRetrieveDayEvents dbController.doQuerySelectEvents(e.dtDay, e.events, CalendarControl.DataProvider, nUserID) End Sub Private Sub CalendarControl_doCreateEvent(ByVal sender As System.Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_DoCreateEventEvent) Handles CalendarControl.DoCreateEvent dbController.doQueryInsertEvent(e.newEventID, e.pEvent, CalendarControl.DataProvider, nUserID, e.bResult) End Sub Private Sub CalendarControl_doUpdateEvent(ByVal sender As System.Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_DoUpdateEventEvent) Handles CalendarControl.DoUpdateEvent MessageBox.Show("test doupdateevent") 'temp 'dbController.doQueryUpdateEvent(e.pEvent, CalendarControl.DataProvider, nUserID, e.bResult) End Sub Am I wrong putting above code directly in the main form? Thanks in advance, Laurent

sserge Members Profile Send Private Message Find Members Posts Add to Buddy List Moderator Group Joined: 01 December 2004 Status: Offline Points: 1297	Post Options Post Reply Quote sserge Report Post Thanks(0) Quote Reply Posted: 01 September 2006 at 6:55am
	Hi Laurent, This is strange. I have just tested this -- added 3 empty handlers and all 3 events are coming fine. DoUpdateEvent comes when you move/resize/edit existing event in the calendar. My code is like the following: Private Sub frmMain1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load CalendarControl.SetDataProvider("Provider=CUSTOM;") CalendarControl.DataProvider.Open() ' Ensure that you call Open! End Sub Private Sub CalendarControl_DoCreateEvent( ByVal sender As Object , ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_DoCreateEventEvent) Handles CalendarControl.DoCreateEvent End Sub Private Sub CalendarControl_DoRetrieveDayEvents( ByVal sender As Object , ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_DoRetrieveDayEventsEvent) Handles CalendarControl.DoRetrieveDayEvents End Sub Private Sub CalendarControl_DoUpdateEvent( ByVal sender As Object , ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_DoUpdateEventEvent) Handles CalendarControl.DoUpdateEvent End Sub -- WBR, Serge

zotteLORRE Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 31 August 2006 Location: Belgium Status: Offline Points: 5	Post Options Post Reply Quote zotteLORRE Report Post Thanks(0) Quote Reply Posted: 15 September 2006 at 8:08am
	Serge, Strange indeed, but I guess the problem was somewhere (?) in my code. After lots of debugging, I decided to start from scratch and use the VB6 sample as an example (and read the documentation...). A little bit embarassing, since I didn't manage to find the bug... Anyway, everything works fine now! Thanks for your time, Laurent