<?xml version="1.0" encoding="utf-8" ?>
<?xml-stylesheet type="text/xsl" href="RSS_xslt_style.asp" version="1.0" ?>
<rss version="2.0" xmlns:WebWizForums="https://syndication.webwiz.net/rss_namespace/">
 <channel>
  <title>Codejock Developer Community : Problem updating RibbonBar to rel. 18</title>
  <link>http://forum.codejock.com/</link>
  <description><![CDATA[This is an XML content feed of; Codejock Developer Community : Command Bars : Problem updating RibbonBar to rel. 18]]></description>
  <copyright>Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved.</copyright>
  <pubDate>Wed, 13 May 2026 05:30:33 +0000</pubDate>
  <lastBuildDate>Mon, 07 Jan 2019 11:12:08 +0000</lastBuildDate>
  <docs>http://blogs.law.harvard.edu/tech/rss</docs>
  <generator>Web Wiz Forums 12.04</generator>
  <ttl>360</ttl>
  <WebWizForums:feedURL>forum.codejock.com/RSS_post_feed.asp?TID=23764</WebWizForums:feedURL>
  <image>
   <title><![CDATA[Codejock Developer Community]]></title>
   <url>http://forum.codejock.com/forum_images/codejock-logo.gif</url>
   <link>http://forum.codejock.com/</link>
  </image>
  <item>
   <title><![CDATA[Problem updating RibbonBar to rel. 18 : Hello,you need to add code with...]]></title>
   <link>http://forum.codejock.com/forum_posts.asp?TID=23764&amp;PID=77207&amp;title=problem-updating-ribbonbar-to-rel-18#77207</link>
   <description>
    <![CDATA[<strong>Author:</strong> <a href="http://forum.codejock.com/member_profile.asp?PF=9012">agontarenko</a><br /><strong>Subject:</strong> 23764<br /><strong>Posted:</strong> 07 January 2019 at 11:12am<br /><br /><div>Hello,</div><div>you need to add code with style initialization as below<br></div><div><br></div><div><div><div>&nbsp; &nbsp; Dim MyRibbonBar As RibbonBar</div><div>&nbsp; &nbsp; Dim RibTab As RibbonTab</div><div>&nbsp; &nbsp; Dim RibGroup As RibbonGroup</div><div>&nbsp; &nbsp; Dim Control As CommandBarControl</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; 'create a ribbonbar</div><div>&nbsp; &nbsp; Set MyRibbonBar = CommandBars.AddRibbonBar("The Ribbon")</div><div>&nbsp; &nbsp; MyRibbonBar.EnableDocking xtpFlagStretched</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; 'create a tab</div><div>&nbsp; &nbsp; Set RibTab = MyRibbonBar.InsertTab(0, "&amp;TestTab")</div><div><br></div><div>&nbsp; &nbsp; 'create a group</div><div><div>&nbsp; &nbsp; Set RibGroup = RibTab.Groups.AddGroup("FirstGroup", 1)</div><div>&nbsp; &nbsp; RibGroup.Caption = "FirstGroup"</div></div></div><div><br></div><div>&nbsp; &nbsp; 'create a control<span style="white-space:pre">	</span></div><div><div>&nbsp; &nbsp; Set Control = RibGroup.Add(xtpControlButton, 100, "FirstButton", -1, False)</div><div>'&nbsp; &nbsp; Control.BeginGroup = BeginGroup</div><div>&nbsp; &nbsp; Control.DescriptionText = "FirstButton"</div><div>&nbsp; &nbsp; Control.Style = 0 'ButtonStyle</div><div>&nbsp; &nbsp; Control.Category = "controls" 'Category</div></div><div><br></div><div>&nbsp; &nbsp; 'refresh ribbonbar<span style="white-space:pre">	</span></div><div>&nbsp; &nbsp; MyRibbonBar.RecalcLayout</div><div><b><br></b></div></div><div><b>&nbsp; CommandBarsGlobalSettings.ResourceImages.LoadFromFile App.path &amp; "\Styles\Office2016.dll", "Office2016WordColorful.ini"<br>&nbsp;&nbsp;CommandBars.VisualTheme = xtpThemeOffice2016<br>&nbsp;&nbsp;CommandBars.EnableFrameTheme True</b></div><div><br></div><div>Regards,</div><div>Artem Gontarenko<br></div><div><br></div>]]>
   </description>
   <pubDate>Mon, 07 Jan 2019 11:12:08 +0000</pubDate>
   <guid isPermaLink="true">http://forum.codejock.com/forum_posts.asp?TID=23764&amp;PID=77207&amp;title=problem-updating-ribbonbar-to-rel-18#77207</guid>
  </item> 
  <item>
   <title><![CDATA[Problem updating RibbonBar to rel. 18 : I confirm this problem (using...]]></title>
   <link>http://forum.codejock.com/forum_posts.asp?TID=23764&amp;PID=77143&amp;title=problem-updating-ribbonbar-to-rel-18#77143</link>
   <description>
    <![CDATA[<strong>Author:</strong> <a href="http://forum.codejock.com/member_profile.asp?PF=4669">gibra</a><br /><strong>Subject:</strong> 23764<br /><strong>Posted:</strong> 15 November 2018 at 4:10am<br /><br /><div>I confirm this problem (using 16.4 and 18.2 versions)</div><div>With 15.3 works fine.<br></div>]]>
   </description>
   <pubDate>Thu, 15 Nov 2018 04:10:58 +0000</pubDate>
   <guid isPermaLink="true">http://forum.codejock.com/forum_posts.asp?TID=23764&amp;PID=77143&amp;title=problem-updating-ribbonbar-to-rel-18#77143</guid>
  </item> 
  <item>
   <title><![CDATA[Problem updating RibbonBar to rel. 18 : I have updated a simple vb6 project...]]></title>
   <link>http://forum.codejock.com/forum_posts.asp?TID=23764&amp;PID=77142&amp;title=problem-updating-ribbonbar-to-rel-18#77142</link>
   <description>
    <![CDATA[<strong>Author:</strong> <a href="http://forum.codejock.com/member_profile.asp?PF=1020">Superpippo</a><br /><strong>Subject:</strong> 23764<br /><strong>Posted:</strong> 14 November 2018 at 1:10pm<br /><br /><div>I have updated a simple vb6 project to codejock rel 18.</div><div>The code have a simple ribbon bar and with codejock rel 15 it works with a nice blue ribbonbar, updating to commandbar control to rel 18 the ribbon is black.</div><div><br></div><div>What's wrong ?</div><div><br></div><div>the code to create the ribbonbar is the following, simply create a vb6 form put a commandbar control inside it and copy the following code in the form load event:</div><div><br></div><div><div>&nbsp; &nbsp; Dim MyRibbonBar As RibbonBar</div><div>&nbsp; &nbsp; Dim RibTab As RibbonTab</div><div>&nbsp; &nbsp; Dim RibGroup As RibbonGroup</div><div>&nbsp; &nbsp; Dim Control As CommandBarControl</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; 'create a ribbonbar</div><div>&nbsp; &nbsp; Set MyRibbonBar = CommandBars.AddRibbonBar("The Ribbon")</div><div>&nbsp; &nbsp; MyRibbonBar.EnableDocking xtpFlagStretched</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; 'create a tab</div><div>&nbsp; &nbsp; Set RibTab = MyRibbonBar.InsertTab(0, "&amp;TestTab")</div><div><br></div><div>&nbsp; &nbsp; 'create a group</div><div><div>&nbsp; &nbsp; Set RibGroup = RibTab.Groups.AddGroup("FirstGroup", 1)</div><div>&nbsp; &nbsp; RibGroup.Caption = "FirstGroup"</div></div></div><div><br></div><div>&nbsp; &nbsp; 'create a control<span style="white-space:pre">	</span></div><div><div>&nbsp; &nbsp; Set Control = RibGroup.Add(xtpControlButton, 100, "FirstButton", -1, False)</div><div>'&nbsp; &nbsp; Control.BeginGroup = BeginGroup</div><div>&nbsp; &nbsp; Control.DescriptionText = "FirstButton"</div><div>&nbsp; &nbsp; Control.Style = 0 'ButtonStyle</div><div>&nbsp; &nbsp; Control.Category = "controls" 'Category</div></div><div><br></div><div>&nbsp; &nbsp; 'refresh ribbonbar<span style="white-space:pre">	</span></div><div>&nbsp; &nbsp; MyRibbonBar.RecalcLayout</div><div><br></div><div>Thanks a lot</div><div><br></div><div><br></div><div><br></div>]]>
   </description>
   <pubDate>Wed, 14 Nov 2018 13:10:02 +0000</pubDate>
   <guid isPermaLink="true">http://forum.codejock.com/forum_posts.asp?TID=23764&amp;PID=77142&amp;title=problem-updating-ribbonbar-to-rel-18#77142</guid>
  </item> 
 </channel>
</rss>