Command Bars - Two Form Caption Bars

Print Page | Close Window

Two Form Caption Bars

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=19577
Printed Date: 07 July 2024 at 7:31pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Two Form Caption Bars

Posted By: JoeDMInc
Subject: Two Form Caption Bars
Date Posted: 15 March 2012 at 7:19pm

Hello,

I have created a Ribbon xcb file using the Designer. I placed a commandbars control onto a form and set the VisualTheme to xptThemeRibbon. I added the following code to the load event:

Private Sub Form_Load()

    CommandBarsGlobalSettings.App = App

    With CommandBars1
        .EnableOffice2007Frame True
        CommandBarsGlobalSettings.ResourceImages.LoadFromFile App.Path & "\themes\Office2010.dll", "Office2010Blue.ini"
        .LoadDesignerBars App.Path & "\fxmenu.xcb"
    End With
End Sub

When running the program the command bar looks great, but I get this:

How do I remove the second caption bar? I am using VB6 (SP6) on a Windows XP Pro machine, version 15.2.1.0213 of Xtreme Suite Pro. I assume I am missing something simple. Any help would be apprecited.

Replies:

Posted By: JoeDMInc
Date Posted: 16 March 2012 at 5:15pm

I figured it out, call the LoadDesignerBars method prior to endableoffice2007frame...

Private Sub Form_Load()

    CommandBarsGlobalSettings.App = App

    With CommandBars1

         .LoadDesignerBars App.Path & "\fxmenu.xcb"
        .EnableOffice2007Frame True
        CommandBarsGlobalSettings.ResourceImages.LoadFromFile App.Path & "\themes\Office2010.dll", "Office2010Blue.ini"
    End With
End Sub