Codejock Developer Community : right click on month view

right click on month view : OkI have added the code in but...

Thu, 12 Apr 2007 09:53:10 +0000

Author: tejsingh
Subject: 6845
Posted: 12 April 2007 at 9:53am

Ok

I have added the code in but still no joy.

I have created a menu similar to the calendar sample.

When i run the calendar Active-X control from VB it opens it in Internet explorer.

The code is exactly the same! but when i right click nothing happens!

I even created the ocx and ran it in Progress 4gl but that still didnt work.

any ideas?

Private Sub CalendarControl_ContextMenu(ByVal X As Single, ByVal Y As Single)

    Dim HitTest As CalendarHitTestInfo
    Set HitTest = CalendarControl.ActiveView.HitTest

    If Not HitTest.ViewEvent Is Nothing Then
        Set ContextEvent = HitTest.ViewEvent.Event
                '
        '
        'code for event popup goes here
        '
        Set ContextEvent = Nothing
     Else
        PopupMenu ContextNew
    End If

End Sub

right click on month view : ok cool will give that a go! ...

Thu, 12 Apr 2007 09:22:04 +0000

Author: tejsingh
Subject: 6845
Posted: 12 April 2007 at 9:22am

ok cool will give that a go!

right click on month view : Private Sub CalendarControl_ContextMenu(ByVal...

Thu, 12 Apr 2007 07:42:33 +0000

Author: joeliner
Subject: 6845
Posted: 12 April 2007 at 7:42am

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
        '
        '
        'code for event popup goes here
        '
        Set ContextEvent = Nothing
     Else
          '
        '
        'code for calendar popup goes here
        '
    End If

End Sub

right click on month view : Try use the contextMenu Event...

Thu, 12 Apr 2007 07:28:14 +0000

Author: joeliner
Subject: 6845
Posted: 12 April 2007 at 7:28am

Try use the contextMenu Event rather.

It works well. See the calendar sample.

right click on month view : HiI want to add an event when...

Thu, 12 Apr 2007 07:00:05 +0000

Author: tejsingh
Subject: 6845
Posted: 12 April 2007 at 7:00am

Hi

I want to add an event when right clicking on a month view.

I currently have it working for right click events. But want it so that if in the month view i right click i it to fire the event and pass the dates through to my progress 4gl.

Looked at samples but they didnt help

It is it to do with hittest?

i have added the current code below:

Private Sub Calendar_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim hHit As CalendarHitTestInfo
    Dim StartDate As Date
    Dim EndDate As Date
    Dim cName As String
    'Dim Popup As CommandBar

    If Button = 2 Then
        Select Case Calendar.ViewType
            Case xtpCalendarDayView, xtpCalendarWorkWeekView
                Set hHit = Calendar.DayView.HitTest
            Case xtpCalendarWeekView
                Set hHit = Calendar.WeekView.HitTest
            Case xtpCalendarMonthView
                Set hHit = Calendar.MonthView.HitTest
        End Select

     '   Set Popup = CommandBars.Add("Popup", xtpBarPopup)
      '               With Popup.Controls
       '                  .Add xtpControlButton, ID_NEW_APPOINTMENT, "Add New Appointment"
        '                 .Add xtpControlButton, ID_ALL_DAY_EVENT, "Add All Day Event"
         '                .Add xtpControlButton, ID_ADD_MEETING, "Add Meeting Request"
          '          End With
           '     Popup.ShowPopup

        If Not hHit Is Nothing Then
            If Not hHit.ViewEvent Is Nothing Then
                RaiseEvent EventRClick(hHit.ViewEvent.Event)
            Else
                Select Case Calendar.ViewType
                    Case xtpCalendarDayView, xtpCalendarWorkWeekView
                        StartDate = Calendar.DayView.Selection.Begin
                        EndDate = Calendar.DayView.Selection.End
                    Case xtpCalendarWeekView
                        StartDate = Calendar.DayView.Selection.Begin
                        EndDate = Calendar.DayView.Selection.End
                    Case xtpCalendarMonthView
                        StartDate = Calendar.DayView.Selection.Begin
                        EndDate = Calendar.DayView.Selection.End
                End Select
                If Not hHit.ViewGroup Is Nothing Then
                    cName = hHit.ViewGroup.MultipleResources.Item(0).Name
                End If
                If hHit.HitDateTime >= StartDate And hHit.HitDateTime <= EndDate Then
                    RaiseEvent RClick(StartDate, EndDate, cName)
                End If
            End If
        End If
    End If

End Sub