http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 10 Jun 2026 16:05:16 +0000 Wed, 11 Apr 2007 11:56:37 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=6838 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=6838&PID=21849&title=creating-right-click-pop-menu#21849 Author: tejsingh
Subject: 6838
Posted: 11 April 2007 at 11:56am

To add to the above i have another issue:

What i want to do is to have a procedure which will return the item selected from the popup menu is that possible?
]]> Wed, 11 Apr 2007 11:56:37 +0000 http://forum.codejock.com/forum_posts.asp?TID=6838&PID=21849&title=creating-right-click-pop-menu#21849 http://forum.codejock.com/forum_posts.asp?TID=6838&PID=21836&title=creating-right-click-pop-menu#21836 Author: tejsingh
Subject: 6838
Posted: 11 April 2007 at 10:17am

Cheers for that!

I have adapted what you posted into my calendar_Mousedown procedure.

And it works a treat cheers!

Just need to get it work when it finds an event. I am creating a com object which is embedded into my progress 4gl program.

I have another problem which is i have created the command bar on screen but when i open the object it displays the command bar at the top of the screen. But i can move it around the screen.

Can this be disabled??

TJ


]]> Wed, 11 Apr 2007 10:17:44 +0000 http://forum.codejock.com/forum_posts.asp?TID=6838&PID=21836&title=creating-right-click-pop-menu#21836 http://forum.codejock.com/forum_posts.asp?TID=6838&PID=21835&title=creating-right-click-pop-menu#21835 Author: joeliner
Subject: 6838
Posted: 11 April 2007 at 9:55am

Try this TJ..

Private Sub CalendarControl_ContextMenu(ByVal x As Single, ByVal y As Single)
Dim PopupBar As CommandBar, Control As CommandBarControl

    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
             
            ZOrder
            Set PopupBar = CommandBars.Add("Popup", xtpBarPopup)
            With PopupBar.Controls
            .Add xtpControlButton, 1, "&Open Event"
            .Add xtpControlButton, 2, "&Delete Event"
             .
             .  
             .
            End With
            PopupBar.ShowPopup
   
    End If

]]> Wed, 11 Apr 2007 09:55:55 +0000 http://forum.codejock.com/forum_posts.asp?TID=6838&PID=21835&title=creating-right-click-pop-menu#21835 http://forum.codejock.com/forum_posts.asp?TID=6838&PID=21834&title=creating-right-click-pop-menu#21834 Author: tejsingh
Subject: 6838
Posted: 11 April 2007 at 9:30am

Hi

I am new to all this

just wondering can anyone assist me with this.

I have created a calendar and on events when i right click i want a popup menu to appear similar to the one in outlook

i have looked at examples but no joy

any advice would be much appreciated

TJ
]]> Wed, 11 Apr 2007 09:30:41 +0000 http://forum.codejock.com/forum_posts.asp?TID=6838&PID=21834&title=creating-right-click-pop-menu#21834