Command Bars - SOLVED:I can't make extend sub menu,plz guide me

Print Page | Close Window

SOLVED:I can't make extend sub menu,plz guide me

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=16396
Printed Date: 06 October 2024 at 11:16am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: SOLVED:I can't make extend sub menu,plz guide me

Posted By: unforgiven
Subject: SOLVED:I can't make extend sub menu,plz guide me
Date Posted: 09 March 2010 at 2:22am

Hi all
I got problem to create sub extend menu.
i attached one sample create menu that i made,please take a look that and trim this code,more explaine wrote in the code
thanks all

uploads/20100309_021856_Project.rar - 20100309_021856_Project.rar

Replies:

Posted By: gibra
Date Posted: 10 March 2010 at 8:02am

What is the problem?

Explain ...

-------------
gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8

Posted By: unforgiven
Date Posted: 10 March 2010 at 9:51am

Hi Gibra
In the goto menu , i want to extent sub menu option1 and option2

Let me show you in this way :

File
Open
Goto >> Option1
>> Option2

i don't know how cant i create option1 and option2 for Goto
please make it for me

thank you very much

Posted By: cmm2006
Date Posted: 10 March 2010 at 2:04pm

I don't know what are you looking for, but check the sample

http://forum.codejock.com/uploads/20100310_140431_Sample.rar - uploads/20100310_140431_Sample.rar

-------------
Language: Visual Basic 6 SP6
OS: Windows XP Pro SP3
Product: Codejock Xtreme SuitePro 13.1

Posted By: unforgiven
Date Posted: 10 March 2010 at 3:14pm

Dear cmm2006 thanks for your attention
it was exactlly what i need,wish you trim my samples .
one question: what's deffrent between those code ?
i use this to make menu

Set ControlFile = AddButton(CommandBars.ActiveMenuBar.Controls, xtpControlPopup, ID_MENU_FILE)
    With ControlFile.CommandBar

        AddButton .Controls, xtpControlButton, ID_FILE_Optimizetools
        AddButton .Controls, xtpControlButton, ID_FILE_Userman, True
        AddButton .Controls, xtpControlButton, ID_FILE_Resetdatabase, True
        AddButton .Controls, xtpControlButton, ID_FILE_Printersetting, True
        AddButton .Controls, xtpControlButton, ID_FILE_EXIT, True


End With

and you use this :

Set ControlView = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&View")
    With ControlView.CommandBar.Controls
        Set Control = .Add(xtpControlPopup, 0, "&Toolbars")
        Control.CommandBar.Controls.Add xtpControlButton, ID_VIEW_TOOLBAR_STANDARD, "&Standard"

    End With

thanks agian for reply