Release the DrogDrop Event

Note:DragDrop can only possibly happen after dragover, and both events only happen when dragging another control over the calendarControl control. You cannot drag the calendar control over itself I think.

Put in my own application, I am using a 3rdparty grid and I am able to drag a cell from it onto my CalendarControl no problems.  I do not have any properties set to allow this on the Calendar control, so I'm not sure what we are missing right now.  I'll test more later.

You may first need to begin the drag event from what ever control you are dragging from.  Like on most grids, on a DragCell event, you can do a Control.Drag vbBeginDrag. Then, on the calendar control, you capture a drag on the DragDrop event like the following.

 

<code>

 

Private Sub CalendarControl_DragDrop(Source As Control, x As Single, Y As Single)
    Dim m_pEditingEvent As CalendarEvent
    Dim HitTest As CalendarHitTestInfo
   
    'Test Location of Drop
    Set HitTest = CalendarControl.ActiveView.HitTest

    'Check drop zone is valid
    If CalendarControl.ViewType = xtpCalendarDayView Or CalendarControl.ViewType = xtpCalendarWorkWeekView Then
        '8193 OR 16385
        If HitTest.HitCode = (xtpCalendarHitTestGroupArea + xtpCalendarHitTestDayViewCell) Or HitTest.HitCode = (xtpCalendarHitTestGroupArea + xtpCalendarHitTestDayViewAllDayEvent) Then
            'ok
        Else
            Exit Sub
        End If
       
    ElseIf CalendarControl.ViewType = xtpCalendarMonthView Or CalendarControl.ViewType = xtpCalendarWeekView Then
        '1 OR 2
        If HitTest.HitCode = xtpCalendarHitTestGroupArea Or HitTest.HitCode = xtpCalendarHitTestDayHeader Then
            'ok
        Else
            Exit Sub
        End If
    Else
        Exit Sub
    End If

    'Create new Event
    Set m_pEditingEvent = CalendarControl.DataProvider.CreateEvent
   
    'Get date selection
    Dim BeginSelection As Date, EndSelection As Date, AllDay As Boolean, EndTime As Date
    CalendarControl.ActiveView.GetSelection BeginSelection, EndSelection, AllDay
   
    'Create Calendar Event
    m_pEditingEvent.StartTime = BeginSelection
    m_pEditingEvent.EndTime = EndSelection
    m_pEditingEvent.Subject = "My Subject"
    m_pEditingEvent.Location = "My Location"
    m_pEditingEvent.AllDayEvent = AllDay
    m_pEditingEvent.Body = "My Body"
    m_pEditingEvent.Label = 0
    m_pEditingEvent.BusyStatus = xtpCalendarBusyStatusFree
    m_pEditingEvent.PrivateFlag = 0
    m_pEditingEvent.MeetingFlag = 0
           
    'Add Event to Calendar
    CalendarControl.DataProvider.AddEvent m_pEditingEvent

    Screen.MousePointer = vbDefault   

End Sub

 

</code>

 

You should test the hitcode to know exactly where you are droping and react how you want based on the location. This drop will create an event on the location where you droped. Now, just change the fields to data found the the selected row of your grid or selected text in a control.

Now its working,thanks Rafael

 

Eric

 

 

Rafael wrote: You may first need to begin the drag event from what ever control you are dragging from.  Like on most grids, on a DragCell event, you can do a Control.Drag vbBeginDrag. Then, on the calendar control, you capture a drag on the DragDrop event like the following.   <code>   Private Sub CalendarControl_DragDrop(Source As Control, x As Single, Y As Single)     Dim m_pEditingEvent As CalendarEvent     Dim HitTest As CalendarHitTestInfo         'Test Location of Drop     Set HitTest = CalendarControl.ActiveView.HitTest     'Check drop zone is valid     If CalendarControl.ViewType = xtpCalendarDayView Or CalendarControl.ViewType = xtpCalendarWorkWeekView Then         '8193 OR 16385         If HitTest.HitCode = (xtpCalendarHitTestGroupArea + xtpCalendarHitTestDayViewCell) Or HitTest.HitCode = (xtpCalendarHitTestGroupArea + xtpCalendarHitTestDayViewAllDayEvent) Then             'ok         Else             Exit Sub         End If             ElseIf CalendarControl.ViewType = xtpCalendarMonthView Or CalendarControl.ViewType = xtpCalendarWeekView Then         '1 OR 2         If HitTest.HitCode = xtpCalendarHitTestGroupArea Or HitTest.HitCode = xtpCalendarHitTestDayHeader Then             'ok         Else             Exit Sub         End If     Else         Exit Sub     End If     'Create new Event     Set m_pEditingEvent = CalendarControl.DataProvider.CreateEvent         'Get date selection     Dim BeginSelection As Date, EndSelection As Date, AllDay As Boolean, EndTime As Date     CalendarControl.ActiveView.GetSelection BeginSelection, EndSelection, AllDay         'Create Calendar Event     m_pEditingEvent.StartTime = BeginSelection     m_pEditingEvent.EndTime = EndSelection     m_pEditingEvent.Subject = "My Subject"     m_pEditingEvent.Location = "My Location"     m_pEditingEvent.AllDayEvent = AllDay     m_pEditingEvent.Body = "My Body"     m_pEditingEvent.Label = 0     m_pEditingEvent.BusyStatus = xtpCalendarBusyStatusFree     m_pEditingEvent.PrivateFlag = 0     m_pEditingEvent.MeetingFlag = 0                 'Add Event to Calendar     CalendarControl.DataProvider.AddEvent m_pEditingEvent     Screen.MousePointer = vbDefault    End Sub   </code>   You should test the hitcode to know exactly where you are droping and react how you want based on the location. This drop will create an event on the location where you droped. Now, just change the fields to data found the the selected row of your grid or selected text in a control.