However, I am still stuggling with this.

 

I've used the code from:

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

 

to have the popup show up. Added a 'cut appointment' to the menu as well as: mnuCutAppt_click

 

However, I am stuck there. tried a few things such as: CalendarControl.DayView.Cut ContextEvent

and CalendarControl.ActiveView.CanCut = True (error).

 

Please help!!!!!  I am desperate. I have to show a prototype soon!

 

thanks!!!

 

Here's the instructions I use to make 'Cut/Copy/Paste' working:

 

select case Mode
  Case "Cut"
  If Calendar.ActiveView.CanCut Then Calendar.ActiveView.Cut
 Case "Copy"
  If Calendar.ActiveView.CanCopy Then Calendar.ActiveView.Copy
 Case "Paste"
  If Calendar.ActiveView.CanPaste Then Calendar.ActiveView.Paste
end select

 

 

 

 

Hello,

 

The code is place in response of the context (popup) menu:

 

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

 

As Serge said, to cut or copy an event, the event must be selected first.

 

Hello,

 

To be sure an event is pointed and to select it automatically, you can also write:

 

Private Sub ContextMenu_Click(Index As Integer)

Dim HitTest As CalendarHitTestInfo

    Set HitTest = Calendar.ActiveView.HitTest

    Select Case Index
        Case 0: ' Cut

 

I am new to this control, not a programmer by trade....

and

I am not having any luck... can you give a little more direction? suggestions?

 

 

Not so cold in France this week

 

I think you are searching the way to insert a context menu on Calendar control. You can use the ContextMenu event of Clendar Control

 

Private Sub Calendar_ContextMenu(ByVal X As Single, ByVal Y As Single)
Dim HitTest As CalendarHitTestInfo

 

    Set HitTest = Calendar.ActiveView.HitTest
   
    If Not HitTest.ViewEvent Is Nothing Then
          ' *** Context Menu of existing event where you can place Cut/Copy/Paste an event    
    ElseIf (HitTest.HitCode = xtpCalendarHitTestDayViewTimeScale) Then
          ' *** Context Menu of the Time Scale if any
    Else
          ' *** Context Menu of inserting a new event where you can place 'Paste an event'       
    End If
End Sub

Hope this will help you.

 

 

I have a menu called mnuCutAppt and a procedure: mnuCutAppt_click

 

but from there, Im lost.....

 

Here is a sample of context menu 'Cut/Copy/Paste' :

 

https://forum.codejock.com/uploads/20070113_025528_Context.zip - uploads/20070113_025528_Context.zip

 

 

 

thanks so much for taking the time to put that together.

 

Actually, I was successful in create the pop-up menu itself.

 

I am stuck on what to do then.

My plan is to use this in a physician's office and I want my users to be able to cut/paste an appointment when the patient calls and reschedules.... does this make sense and is feasible? 

 

Your project is perfectly feasible. You can put these three buttons (Cut/Copy/Paste) in a toolbar or in a popup menu (as in the sample program I send you in the precedent message).

 

To test the sample, you can insert an appointement, right-clic it, choose 'Cut', and then insert it anywhere else by right-clicking and choose 'Paste'.

 

 

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?

 

 

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.

 

 

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

 

I've tried

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

 

 

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

 

 

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?????????

 

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.

 

 

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'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.

 

 

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?