Command Bars - How to add menu level 4 ?

Print Page | Close Window

How to add menu level 4 ?

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=1287
Printed Date: 23 May 2024 at 3:28pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: How to add menu level 4 ?

Posted By: hoanganh
Subject: How to add menu level 4 ?
Date Posted: 15 October 2004 at 12:36pm

How to add menu level 4 ?

    Set Control5 = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 5, mnu_5)
    With Control5.CommandBar.Controls
        Set Control5 = .Add(xtpControlPopup, 51, mnu_51)
        Control5.CommandBar.Controls.Add xtpControlButton, 511, mnu_511
        Control5.CommandBar.Controls.Add xtpControlButton, 512, mnu_512
        Control5.CommandBar.Controls.Add xtpControlButton, 513, mnu_513
        Control5.CommandBar.Controls.Add xtpControlButton, 514, mnu_514
        Set Control5 = .Add(xtpControlPopup, 52, mnu_52)
        Control5.BeginGroup = True
        Set Control = Control5.CommandBar.Controls.Add(xtpControlPopup, 521, mnu_521)
        Control.BeginGroup = True

??? mnu_5211

Replies:

Posted By: SuperMario
Date Posted: 15 October 2004 at 12:52pm

Mabye you are looking for something like this (5 level menu)?


Set control5 = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 5, mnu_5)

    With control5.CommandBar.Controls

        .Add xtpControlButton, 5111, mnu_5111

        .Add xtpControlButton, 5122, mnu_5122

        Set control5 = .Add(xtpControlPopup, 51, mnu_51)

        With control5.CommandBar.Controls

            .Add xtpControlButton, 5211, mnu_5211

            .Add xtpControlButton, 5222, mnu_5222

            Set control5 = .Add(xtpControlPopup, 512, mnu_512)

            With control5.CommandBar.Controls

                .Add xtpControlButton, 5311, mnu_5311

                .Add xtpControlButton, 5322, mnu_5322

                Set control5 = .Add(xtpControlPopup, 513, mnu_513)

                With control5.CommandBar.Controls

           
        .Add xtpControlButton, 5411,
mnu_5411

           
        .Add xtpControlButton, 5422,
mnu_5422

           
        Set control5 =
.Add(xtpControlPopup, 514, mnu_514)

                    With control5.CommandBar.Controls

           
            .Add
xtpControlButton, 5511, mnu_5511

           
            .Add
xtpControlButton, 5512, mnu_5512

           
            .Add
xtpControlButton, 5513, mnu_5513

                    End With

                End With

            End With

        End With

End With

    

    Set Control = control5.CommandBar.Controls.Add(xtpControlPopup, 521, mnu_521)

    Control.BeginGroup = True

Posted By: hoanganh
Date Posted: 15 October 2004 at 1:05pm

oh ! yes !

Thanks you very much !

your support is Excellent !