Codejock Developer Community : intelligent menus http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 07:38:55 +0000 Thu, 29 Jul 2004 22:40:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=987 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[intelligent menus : Thanks SuperMario :) ]]> http://forum.codejock.com/forum_posts.asp?TID=987&PID=2610&title=intelligent-menus#2610 Author: dajv
Subject: 987
Posted: 29 July 2004 at 10:40pm

Thanks SuperMario :)]]> Thu, 29 Jul 2004 22:40:25 +0000 http://forum.codejock.com/forum_posts.asp?TID=987&PID=2610&title=intelligent-menus#2610 <![CDATA[intelligent menus : The DesignerControls collection...]]> http://forum.codejock.com/forum_posts.asp?TID=987&PID=2609&title=intelligent-menus#2609 Author: SuperMario
Subject: 987
Posted: 29 July 2004 at 9:32pm

The DesignerControls collection of commands only holds commands that are displayed in the "Commands" tab of the Add\remove buttons customize dialog.  This collection is designed to hold all of your applicatio's controls so the user can add\remove them as needed. 

You need to change the caption of the control in CommandBars.ActiveMenuBar or CommandBars(2).FindControl or CommandBars(2).Controls.Find.  FYI: CommandBars(1) is the ActiveMenubar, CommandBars(2) is the first toolbar added, etc...

1) Private Sub Command1_Click()
2)    Dim ctrl As CommandBarControl
3     Set ctrl = CommandBars.ActiveMenuBar.FindControl(, ID_VIEW_STATUSBAR)
4     ctrl.Caption = "&Status Bar... X"
5 End sub

]]> Thu, 29 Jul 2004 21:32:52 +0000 http://forum.codejock.com/forum_posts.asp?TID=987&PID=2609&title=intelligent-menus#2609 <![CDATA[intelligent menus : I&#039;m having trouble setting...]]> http://forum.codejock.com/forum_posts.asp?TID=987&PID=2607&title=intelligent-menus#2607 Author: dajv
Subject: 987
Posted: 29 July 2004 at 7:23pm

I'm having trouble setting commandbar control attributes at run time... I have a command button whos event handler does the following:

1) Private Sub Command1_Click()
2)     Dim ctrl As CommandBarControl
3)     Dim ctrl1 As CommandBarControl
4)     Set ctrl = CommandBars.DesignerControls.Find(, ID_VIEW_STATUSBAR)
5)     ctrl.Caption = "&Status Bar... X"
6)     Set ctrl1 = CommandBars.DesignerControls.Find(, ID_VIEW_STATUSBAR)
7) End sub

As you can see, im using designer controls (at the moment at least). After this has run, the command bar control (a menu item with caption "&Status Bar...") is not updated to read "&Status Bar... X", however stepping through the code i can see that after line 6 ctrl1.Caption DOES equal "&Status Bar... X".

The curious thing is that if i do Control.Caption = "blah" in the CommandBars_Update() or CommandBars_Execute() subs, the menu bar IS updated.

Obviously I will need to make modifications to the menu outside of these subs, so am I doing something wrong?


Edited by dajv]]> Thu, 29 Jul 2004 19:23:18 +0000 http://forum.codejock.com/forum_posts.asp?TID=987&PID=2607&title=intelligent-menus#2607 <![CDATA[intelligent menus : Thanks for your reply. Are there...]]> http://forum.codejock.com/forum_posts.asp?TID=987&PID=2599&title=intelligent-menus#2599 Author: dajv
Subject: 987
Posted: 28 July 2004 at 11:22pm

Thanks for your reply.

Are there any advantages/disadvantages of using a xcb "xtreme command bars designer" file over programmatically creating the menus? That is, other than the initial creation of the menus (i think both are time consuming and probably incur the same amount of time), are tehre any drawbacks of either method?

]]> Wed, 28 Jul 2004 23:22:48 +0000 http://forum.codejock.com/forum_posts.asp?TID=987&PID=2599&title=intelligent-menus#2599 <![CDATA[intelligent menus : Use the AddHiddenCommand method...]]> http://forum.codejock.com/forum_posts.asp?TID=987&PID=2593&title=intelligent-menus#2593 Author: SuperMario
Subject: 987
Posted: 28 July 2004 at 7:10am

Use the AddHiddenCommand method to specify that a menu item to appear hidden.  
This adds the specified command as a hidden command, i.e. an infrequently used command.  
The command will not be displayed in popup menus until the user clicks on the "expand menu" 
chevron button or after a short delay when ShowFullAfterDelay is true.

CommandBars.Options.AlwaysShowFullMenus = False
CommandBars.Options.AddHiddenCommand (ID_FILE_SAVE)
CommandBars.Options.AddHiddenCommand (ID_FILE_CLOSE)
CommandBars.Options.AddHiddenCommand (ID_FILE_SAVE_AS)

To hide the control so the user can not see it, use Visible = False
]]> Wed, 28 Jul 2004 07:10:25 +0000 http://forum.codejock.com/forum_posts.asp?TID=987&PID=2593&title=intelligent-menus#2593 <![CDATA[intelligent menus : Hello, I&#039;m trying to set...]]> http://forum.codejock.com/forum_posts.asp?TID=987&PID=2588&title=intelligent-menus#2588 Author: dajv
Subject: 987
Posted: 27 July 2004 at 11:30pm

Hello,

I'm trying to set menu items to only appear when recently used... as far as I can tell, one sets this by setting the visibility property to "visible if recently used". I've set this for some menu items but it seems to have no effect. What could i be doing wrong?

I also wonder how to set this programmatically? There doesnt seem to be a way, e.g.
Set ControlFile = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&File")
With ControlFile.CommandBar.Controls
    Set Control = .Add(xtpControlButton, ID_FILE_NEW, "&New Database...")
    Control.Visibility = "some value resembling recently used"
End With

The visibility property only allows true and false.

Any advice would be appreciated
]]> Tue, 27 Jul 2004 23:30:58 +0000 http://forum.codejock.com/forum_posts.asp?TID=987&PID=2588&title=intelligent-menus#2588