Codejock Developer Community : Saving the RibbonBar http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 10 Jun 2026 06:35:57 +0000 Wed, 20 Sep 2006 09:05:51 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=5100 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Saving the RibbonBar : Hello, yes, there is no way...]]> http://forum.codejock.com/forum_posts.asp?TID=5100&PID=15901&title=saving-the-ribbonbar#15901 Author: Oleg
Subject: 5100
Posted: 20 September 2006 at 9:05am

Hello,
 
yes, there is no way to save ribbonbar - all methods only save its QuickAccess controls and  some options. you need to create it programmatically.
]]> Wed, 20 Sep 2006 09:05:51 +0000 http://forum.codejock.com/forum_posts.asp?TID=5100&PID=15901&title=saving-the-ribbonbar#15901 <![CDATA[Saving the RibbonBar : Hi, I&#039;m saving the ribbonbar...]]> http://forum.codejock.com/forum_posts.asp?TID=5100&PID=15896&title=saving-the-ribbonbar#15896 Author: cryo75
Subject: 5100
Posted: 20 September 2006 at 7:53am

Hi,
 
I'm saving the ribbonbar as follows:
 
    Dim oState As StateOptions
   
    Set oState = cbar.CreateStateOptions
    With oState
        .LoadSilent = False
        .SaveOnlyCustomized = False
        .SaveOriginalControls = True
        .SerializeDesignerControls = True
        .SerializeControls = True
        .SerializeImages = True
        .SerializeLayout = True
        .SerializeOptions = True
        .SerializeActions = True
    End With
   
    Dim sXML  As String
    Dim sFile As String
    Dim iFile As Integer
   
    sXML = cbar.SaveStateToXMLString("DesignerFile", oState)
   
    sFile = App.Path & "\Layout.xml"
    iFile = FreeFile
    'Kill sFile
    Open sFile For Binary As #iFile
    Put #iFile, , sXML
    Close #iFile
 
Then I load it as follows:
 
    Dim oState As StateOptions
    Dim oRib As RibbonBar
   
    Set oState = cbar.CreateStateOptions
    With oState
        .LoadSilent = False
        .SaveOnlyCustomized = False
        .SaveOriginalControls = True
        .SerializeDesignerControls = True
        .SerializeControls = True
        .SerializeImages = True
        .SerializeLayout = True
        .SerializeOptions = True
        .SerializeActions = True
    End With
   
    Dim sXML  As String
    Dim sFile As String
    Dim iFile As Integer
    sFile = App.Path & "\Layout.xml"
    iFile = FreeFile
    sXML = Space(FileLen(sFile))
    Open sFile For Binary As #iFile
    Get #iFile, , sXML
    Close #iFile
   
    cbar.LoadStateFromXMLString "DesignerFile", sXML, oState
    cbar.RecalcLayout
 
Problem! On loading the ribbonbar is not being displayed. How do I display it once loaded?
 
Thanks,
Ivan
]]> Wed, 20 Sep 2006 07:53:33 +0000 http://forum.codejock.com/forum_posts.asp?TID=5100&PID=15896&title=saving-the-ribbonbar#15896