Once again, my thanks! This is exactly what I was looking for!

 

One small piece I forgot to mention- I am using a multi-resource schedule and so when I paste the appt, it shows up in the left most resources' column and not the one that was right-clicked.

 

Can you help?

 

You're right, to paste an appointment at the right-clicked location, you must make sure the cell is selected.

 

So the sub 'CalendarControl_ContextMenu' must be modify to do the job:

(two lines added)

 

Private Sub CalendarControl_ContextMenu(ByVal x As Single, ByVal y As Single)
    Debug.Print "On context menu"
   
    Dim HitTest As CalendarHitTestInfo
    Set HitTest = CalendarControl.ActiveView.HitTest
   
    If Not HitTest.ViewEvent Is Nothing Then
        HitTest.ViewEvent.Selected = True
        Set ContextEvent = HitTest.ViewEvent.Event
        Me.PopupMenu mnuContexEditEvent
        Set ContextEvent = Nothing
    ElseIf (HitTest.HitCode = xtpCalendarHitTestDayViewTimeScale) Then
        Me.PopupMenu mnuContextTimeScale
    Elseif HitTest.TimePartValid Then ' *** added to test location of cell clicked
        ' *** Make sure the cell right-clicked is selected
        CalendarControl.ActiveView.SetSelection HitTest.HitDateTime, DateAdd("n", Calendar.ActiveView.TimeScale, HitTest.HitDateTime), False
        Me.PopupMenu mnuContextNewEvent
    End If
End Sub

 

 

I think this solve the Paste case.

 

 

Bingo!!! That did it! I am now able to cut appointments!

Thanks so much!

 

One other small item.... I seem to be able to now paste them but, no matter where I cut the appointment from and try to paste to (different resources, differet times)  the appointment is showing up at the left upper most time, and not the time that I chose by right clicking....

 

help.......

 

You are almost right, just one or two lines missing.

 

 

To this sub, I just add one line of code:

 

Private Sub CalendarControl_ContextMenu(ByVal x As Single, ByVal y As Single)
    Debug.Print "On context menu"
   
    Dim HitTest As CalendarHitTestInfo
    Set HitTest = CalendarControl.ActiveView.HitTest
   
    If Not HitTest.ViewEvent Is Nothing Then
        HitTest.ViewEvent.Selected = True '  *** is missing
        Set ContextEvent = HitTest.ViewEvent.Event
        Me.PopupMenu mnuContexEditEvent
        Set ContextEvent = Nothing
    ElseIf (HitTest.HitCode = xtpCalendarHitTestDayViewTimeScale) Then
        Me.PopupMenu mnuContextTimeScale
    Else
        Me.PopupMenu mnuContextNewEvent
    End If
End Sub
 
This sub can be dropped (not necessary, because the code is already and must be, put in the CalendarControl_ContextMenu):
 
Private Sub ContextEdit_Click()
Dim HitTest As CalendarHitTestInfo
    Set HitTest = CalendarControl.ActiveView.HitTest
 
    If Not HitTest.ViewEvent Is Nothing Then
          HitTest.ViewEvent.Selected = True
    End If
End Sub

 

I correct just one case (0=Cut) of the select case:

 

Private Sub ContextMenu_Click(Index As Integer)
    Select Case Index
       
        Case 0: ' Cut
                If CalendarControl.ActiveView.CanCut Then CalendarControl.ActiveView.Cut ' *** Corrected
        Case 1: ' Copy
                If CalendarControl.ActiveView.CanCopy Then CalendarControl.ActiveView.Copy
        Case 2: ' Paste
                If CalendarControl.ActiveView.CanPaste Then CalendarControl.ActiveView.Paste
    End Select
End Sub

Hope this will help you.

 

 

Here is what I have for CalendarControl_ContextMenu:

 

Private Sub CalendarControl_ContextMenu(ByVal x As Single, ByVal y As Single)

    Debug.Print "On context menu"
   
    Dim HitTest As CalendarHitTestInfo
    Set HitTest = CalendarControl.ActiveView.HitTest
   
    If Not HitTest.ViewEvent Is Nothing Then
        Set ContextEvent = HitTest.ViewEvent.Event
        Me.PopupMenu mnuContexEditEvent
        Set ContextEvent = Nothing
    ElseIf (HitTest.HitCode = xtpCalendarHitTestDayViewTimeScale) Then
        Me.PopupMenu mnuContextTimeScale
    Else
        Me.PopupMenu mnuContextNewEvent
    End If

End Sub

 

as well as this:

 

 

Private Sub ContextEdit_Click()
Dim HitTest As CalendarHitTestInfo
    Set HitTest = CalendarControl.ActiveView.HitTest
 
    If Not HitTest.ViewEvent Is Nothing Then
          HitTest.ViewEvent.Selected = True
    End If
End Sub

then I have the menu named ContextMenu and the following:

 

 

Private Sub ContextMenu_Click(Index As Integer)
    Select Case Index
       
        Case 0: ' Cut
                'CalendarControl.ActiveView.CanCut
                'If CalendarControl.ActiveView.CanCut Then
                CalendarControl.ActiveView.Cut
        Case 1: ' Copy
                If CalendarControl.ActiveView.CanCopy Then CalendarControl.ActiveView.Copy
        Case 2: ' Paste
                If CalendarControl.ActiveView.CanPaste Then CalendarControl.ActiveView.Paste
    End Select
End Sub

 

 

what am I still missing?????????

Hello,

 

Calendar is the name of CalendarControl, and 'Cut' is a method, not a property, with no parameter, so the right instruction is:

 

Calendar.ActiveView.Cut

 

You can add the CanCut property (this property is true if you can Cut an appointment), that makes:

 

If Calendar.ActiveView.CanCut Then Calendar.ActiveView.Cut

 

This is the same with the 'Copy', or 'Paste' methods:

 

If Calendar.ActiveView.CanCopy Then Calendar.ActiveView.Copy

If Calendar.ActiveView.CanPaste Then Calendar.ActiveView.Paste

 

Good Week end

 

 

How do you set: Calendar.ActiveView.Cut??

 

I've tried

Calendar.ActiveView.Cut = true in my code but got an error.

 

 

 

So you get the lines of program that must be in the Sub 'ContextEdit_Click()' : (because HitTest property has a value only in this sub)

 

Private Sub ContextEdit_Click()
Dim HitTest As CalendarHitTestInfo
    Set HitTest = Calendar.ActiveView.HitTest

 

    If Not HitTest.ViewEvent Is Nothing Then
          HitTest.ViewEvent.Selected = True
    End If
End Sub

 

After you click the 'Cut Appointment' menu :

 

Private Sub mnuCutAppt_Click()
    If Calendar.ActiveView.CanCut Then Calendar.ActiveView.Cut
End Sub

 

Then you cut the appointment selected.

 

 

I am just really stumped by the steps after you click the 'Cut appointment"

 

in the sample I DL from CodeJock, I can't even seem to get the toolbar cut to work....

 

what am I missing?