Two Form Caption Bars

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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.  

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
JoeDMInc Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 15 March 2012 Location: PA Status: Offline Points: 2	Post Options Post Reply Quote JoeDMInc Report Post Thanks(0) Quote Reply Topic: Two Form Caption Bars 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.

JoeDMInc Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 15 March 2012 Location: PA Status: Offline Points: 2	Post Options Post Reply Quote JoeDMInc Report Post Thanks(0) Quote Reply 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