Rt-Click and Cut/paste

 

 

 

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

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

 

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.

 

 

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

 

 

 

 

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

 

 

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.

 

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

 

 

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.

 

 

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.