Command Bars - Problem updating RibbonBar to rel. 18

Problem updating RibbonBar to rel. 18

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=23764
Printed Date: 25 April 2024 at 1:46am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Problem updating RibbonBar to rel. 18

Posted By: Superpippo
Subject: Problem updating RibbonBar to rel. 18
Date Posted: 14 November 2018 at 1:10pm

I have updated a simple vb6 project to codejock rel 18.

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.

What's wrong ?

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:

Dim MyRibbonBar As RibbonBar

Dim RibTab As RibbonTab

Dim RibGroup As RibbonGroup

Dim Control As CommandBarControl

'create a ribbonbar

Set MyRibbonBar = CommandBars.AddRibbonBar("The Ribbon")

MyRibbonBar.EnableDocking xtpFlagStretched

'create a tab

Set RibTab = MyRibbonBar.InsertTab(0, "&TestTab")

'create a group

Set RibGroup = RibTab.Groups.AddGroup("FirstGroup", 1)

RibGroup.Caption = "FirstGroup"

'create a control

Set Control = RibGroup.Add(xtpControlButton, 100, "FirstButton", -1, False)

' Control.BeginGroup = BeginGroup

Control.DescriptionText = "FirstButton"

Control.Style = 0 'ButtonStyle

Control.Category = "controls" 'Category

'refresh ribbonbar

MyRibbonBar.RecalcLayout

Thanks a lot

-------------
SuperPippo

Replies:

Posted By: gibra
Date Posted: 15 November 2018 at 4:10am

I confirm this problem (using 16.4 and 18.2 versions)

With 15.3 works fine.

-------------
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: agontarenko
Date Posted: 07 January 2019 at 11:12am

Hello,

you need to add code with style initialization as below