Codejock Developer Community : Adding More Sub Control Popup

Codejock Developer Community : Adding More Sub Control Popup http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 08:31:36 +0000 Fri, 10 Mar 2017 06:02:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=23286 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Adding More Sub Control Popup : Khaled Eissa wrote: Set...]]> http://forum.codejock.com/forum_posts.asp?TID=23286&PID=75617&title=adding-more-sub-control-popup#75617 Author: olebed
Subject: 23286
Posted: 10 March 2017 at 6:02am

Originally posted by Khaled Eissa

Khaled Eissa wrote:

Set Control3 = ControlOptions.CommandBar.Controls.Add(xtpControlPopup, 0, "Skins")

Control3.CommandBar.Controls.Add xtpControlPopup, 0, "Windows Skins"

Control3.CommandBar.Controls.Add xtpControlPopup, 1, "Other Skins"

Set Control4 = Control3.CommandBar.Controls.Add(xtpControlButton, ID_SKINOPTIONS_OTHER, "Blue")

I want to add blue to the first "Wisndows Skins"

& Black to "Other Skins"

But you add "Blue" to "Skins" (Control3) Smile

Smile

Set Control4 = Control3.CommandBar.Controls.Add xtpControlPopup, 0, "Windows Skins"
Set Control5 = Control4.CommandBar.Controls.Add(xtpControlButton, ID_SKINOPTIONS_OTHER, "Blue")]]> Fri, 10 Mar 2017 06:02:17 +0000 http://forum.codejock.com/forum_posts.asp?TID=23286&PID=75617&title=adding-more-sub-control-popup#75617 <![CDATA[Adding More Sub Control Popup : Hi all,I'm trying to add...]]> http://forum.codejock.com/forum_posts.asp?TID=23286&PID=75611&title=adding-more-sub-control-popup#75611 Author: Khaled Eissa
Subject: 23286
Posted: 08 March 2017 at 11:24am

Hi all,

I'm trying to add sub Control Popup but can not add Control Button to it. it goes wrong to main Control Popup.

any help

What I want is like in these two images

two sub Control Popup

I need to add Control Buttons to each one

here is my code

Set ControlOptions = RibbonBar.Controls.Add(xtpControlPopup, 0, "Options")

ControlOptions.Flags = xtpFlagRightAlign

Dim Control2 As CommandBarControl

Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlPopup, 0, "Styles")

Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLUE2007, "Office 2007 Blue"

Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLESILVER2007, "Office 2007 Silver"

Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLACK2007, "Office 2007 Black"

Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLEAQUA2007, "Office 2007 Aqua")

Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLEBLUE2010, "Office 2010 Blue")

Control2.BeginGroup = True

Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLESILVER2010, "Office 2010 Silver"

Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLEBLACK2010, "Office 2010 Black")

Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLESCENIC7, "Windows 7 Scenic")

Control2.BeginGroup = True

Dim Control3 As CommandBarControl

Dim Control4 As CommandBarControl

Set Control3 = ControlOptions.CommandBar.Controls.Add(xtpControlPopup, 0, "Skins")

Control3.CommandBar.Controls.Add xtpControlPopup, 0, "Windows Skins"

Control3.CommandBar.Controls.Add xtpControlPopup, 1, "Other Skins"

Set Control4 = Control3.CommandBar.Controls.Add(xtpControlButton, ID_SKINOPTIONS_OTHER, "Blue")

I want to add blue to the first "Wisndows Skins"

& Black to "Other Skins"

]]> Wed, 08 Mar 2017 11:24:07 +0000 http://forum.codejock.com/forum_posts.asp?TID=23286&PID=75611&title=adding-more-sub-control-popup#75611