http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sun, 26 Apr 2026 00:22:43 +0000 Wed, 09 Jan 2008 05:56:27 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=9128 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29997&title=creating-a-popup-menu#29997 Author: Ayub
Subject: 9128
Posted: 09 January 2008 at 5:56am

Can we get C++ code for the same? ]]> Wed, 09 Jan 2008 05:56:27 +0000 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29997&title=creating-a-popup-menu#29997 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29549&title=creating-a-popup-menu#29549 Author: Neil
Subject: 9128
Posted: 18 December 2007 at 8:11am

Once again, thanks very much for your help]]> Tue, 18 Dec 2007 08:11:26 +0000 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29549&title=creating-a-popup-menu#29549 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29545&title=creating-a-popup-menu#29545 Author: ijwelch
Subject: 9128
Posted: 18 December 2007 at 6:01am

Yep,

These lines add the keybindings:

    CommandBars.KeyBindings.Add FCONTROL, Asc("N"), ID_FILE_NEW
    CommandBars.KeyBindings.Add FCONTROL, Asc("O"), ID_FILE_OPEN
    CommandBars.KeyBindings.Add FCONTROL, Asc("S"), ID_FILE_SAVE
    CommandBars.KeyBindings.Add FCONTROL, Asc("X"), ID_EDIT_CUT
    CommandBars.KeyBindings.Add FCONTROL, Asc("C"), ID_EDIT_COPY
    CommandBars.KeyBindings.Add FCONTROL, Asc("V"), ID_EDIT_PASTE

And these constants define the values for special keys:

Public Const FSHIFT = 4
Public Const FCONTROL = 8
Public Const FALT = 16

Public Const VK_BACK = &H8
Public Const VK_TAB = &H9
Public Const VK_ESCAPE = &H1B
Public Const VK_SPACE = &H20
Public Const VK_PRIOR = &H21
Public Const VK_NEXT = &H22
Public Const VK_END = &H23
Public Const VK_HOME = &H24
Public Const VK_LEFT = &H25
Public Const VK_UP = &H26
Public Const VK_RIGHT = &H27
Public Const VK_DOWN = &H28
Public Const VK_INSERT = &H2D
Public Const VK_DELETE = &H2E
Public Const VK_MULTIPLY = &H6A
Public Const VK_ADD = &H6B
Public Const VK_SEPARATOR = &H6C
Public Const VK_SUBTRACT = &H6D
Public Const VK_DECIMAL = &H6E
Public Const VK_DIVIDE = &H6F
Public Const VK_F1 = &H70
Public Const VK_F2 = &H71
Public Const VK_F3 = &H72
Public Const VK_F4 = &H73
Public Const VK_F5 = &H74
Public Const VK_F6 = &H75
Public Const VK_F7 = &H76
Public Const VK_F8 = &H77
Public Const VK_F9 = &H78
Public Const VK_F10 = &H79
Public Const VK_F11 = &H7A
Public Const VK_F12 = &H7B]]> Tue, 18 Dec 2007 06:01:46 +0000 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29545&title=creating-a-popup-menu#29545 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29542&title=creating-a-popup-menu#29542 Author: Neil
Subject: 9128
Posted: 18 December 2007 at 5:46am

Fantastic!. This is EXACTLY what I needed. BTW, I do not have the RibbonSample. Could you please include a few lines of code that show how to use keybindings (hotkeys) with  PopupMenu?

MTIA
]]> Tue, 18 Dec 2007 05:46:37 +0000 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29542&title=creating-a-popup-menu#29542 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29532&title=creating-a-popup-menu#29532 Author: ijwelch
Subject: 9128
Posted: 17 December 2007 at 9:36pm

Here's a basic popup menu:

Dim oBar As XtremeCommandBars.CommandBar
Dim oControl As XtremeCommandBars.CommandBarControl
Dim oPopup As XtremeCommandBars.CommandBarPopup

Set oBar = CommandBars1.Add("Popup Toolbar Name", xtpBarPopup)
With oBar.Controls
    'standard items
    .Add xtpControlButton, ID_ITEM1, "Item1"
    .Add xtpControlButton, ID_ITEM2, "Item2"
    .Add(xtpControlButton, ID_ITEM3, "Item3").BeginGroup = True
    'checkbox
    Set oControl = .Add(xtpControlCheckBox, ID_ITEM4, "Checkbox")
    oControl.Checked = True
    oControl.BeginGroup = True
    'sub-menu
    Set oPopup = .Add(xtpControlPopup, ID_ITEM5, "Sub Menu")
    With oPopup.CommandBar.Controls
        .Add xtpControlButton, ID_SUBITEM1, "SubItem1"
        .Add xtpControlButton, ID_SUBITEM2, "SubItem2"
    End With
End With
'show it
oBar.ShowPopup

Keybindings are included in the VB RibbonSample (in Form_Load event).

]]> Mon, 17 Dec 2007 21:36:00 +0000 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29532&title=creating-a-popup-menu#29532 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29531&title=creating-a-popup-menu#29531 Author: Neil
Subject: 9128
Posted: 17 December 2007 at 7:59pm

I want to create a popup menu (through code - NOT the designer), and  (if possible) to be able to add KeyBindings (i.e. hot keys) to the pop up menus.


1). I can see a PopupControl in the documentation, but I cannot locate it in the object hierarchy - also,  the VB6 object browser cannot locate it (search for PopupControl fails to find it) - so it is not clear how to create/use this control

2). I am aware (after searching this forum's archives), that there is a VB6 sample that apparently shows how to do the above - (atleast - how to show popups). However, I have not been able to find an example that shows popup creation in code (i.e. without the help of teh designer).

Anyone knows how to do this?
]]> Mon, 17 Dec 2007 19:59:14 +0000 http://forum.codejock.com/forum_posts.asp?TID=9128&PID=29531&title=creating-a-popup-menu#29531