Codejock Developer Community : Dynamically changing menus http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 11 Jun 2026 03:45:44 +0000 Mon, 04 Feb 2008 21:42:41 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=9475 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Dynamically changing menus : Thanks corpcon ]]> http://forum.codejock.com/forum_posts.asp?TID=9475&PID=30788&title=dynamically-changing-menus#30788 Author: Neil
Subject: 9475
Posted: 04 February 2008 at 9:42pm

Thanks corpcon]]> Mon, 04 Feb 2008 21:42:41 +0000 http://forum.codejock.com/forum_posts.asp?TID=9475&PID=30788&title=dynamically-changing-menus#30788 <![CDATA[Dynamically changing menus : This is a taste of what I use....]]> http://forum.codejock.com/forum_posts.asp?TID=9475&PID=30768&title=dynamically-changing-menus#30768 Author: corpcon
Subject: 9475
Posted: 04 February 2008 at 1:19am

This is a taste of what I use. It determines what primary form is open and displays only the appropriate menus (in my case, I have 4 or 5 primary forms of which require certain menu items - using your example, one primary form would be the main form for word processing). You may need to reference the provided Codejock samples if this doesn't make sense, because that's how I figured this out. Note that the "gcs" variables are global constant strings that contain the names of the primary forms.
 
In the Update event ...
 
Dim sThisForm As String
If Screen.ActiveForm Is Nothing Then Exit Sub
sThisForm = Screen.ActiveForm.Name
 
' Viewing a menu header (in this case the "Open" menu header) ...
ControlOpenMenu.Visible = IIf(sThisForm = gcsRegistrationForm Or sThisForm = gcsBarcodeForm Or sThisForm = gcsMainOrderForm, False, True)
 
' Viewing specific menu items ...
Select Case Control.Id
    Case ID_OPEN_SETUP: Control.Visible = IIf(sThisForm = gcsSetupForm, False, True)
 
' More detail based on circumstance ...
    Case ID_OPEN_DYMOSETUP
            If sThisForm = gcsSetupForm Then
                Control.Visible = True
                Control.Enabled = IIf(gbUseDymoAddressLabels = True, True, False)
            Else
                Control.Visible = False
            End If
]]> Mon, 04 Feb 2008 01:19:24 +0000 http://forum.codejock.com/forum_posts.asp?TID=9475&PID=30768&title=dynamically-changing-menus#30768 <![CDATA[Dynamically changing menus : I am creating a VB6 application...]]> http://forum.codejock.com/forum_posts.asp?TID=9475&PID=30745&title=dynamically-changing-menus#30745 Author: Neil
Subject: 9475
Posted: 02 February 2008 at 5:41am

I am creating a VB6 application which consists of several different document types (e.g. database table viewer, word processing etc), and each of these documents requires a different menu set.

I need to be able to change the entire menu (not just elements of an existing menu), when the 'active document' changes. Does anyone know how I may implement this using the CommandBars control?.


]]> Sat, 02 Feb 2008 05:41:28 +0000 http://forum.codejock.com/forum_posts.asp?TID=9475&PID=30745&title=dynamically-changing-menus#30745