Codejock Developer Community : How to add menu level 4 ?

How to add menu level 4 ? : oh ! yes ! Thanks you very much...

Fri, 15 Oct 2004 13:05:26 +0000

Author: hoanganh
Subject: 1287
Posted: 15 October 2004 at 1:05pm

oh ! yes !

Thanks you very much !

your support is Excellent !

How to add menu level 4 ? : Mabye you are looking for...

Fri, 15 Oct 2004 12:52:44 +0000

Author: SuperMario
Subject: 1287
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
                       .AddxtpControlButton, 5511, mnu_5511
                       .AddxtpControlButton, 5512, mnu_5512
                       .AddxtpControlButton, 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

Edited by SuperMario

How to add menu level 4 ? : How to add menu level 4 ? Set...

Fri, 15 Oct 2004 12:36:24 +0000

Author: hoanganh
Subject: 1287
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

Edited by hoanganh