http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 16 May 2026 04:53:52 +0000 Mon, 29 Mar 2010 06:42:43 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=16536 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=16536&PID=57837&title=how-to-use-createasbinaryfile#57837 Author: Micca
Subject: 16536
Posted: 29 March 2010 at 6:42am

hi,

i wanna save/load the layout of my 4 commandbars into/from the same binary file.

I use VB6 with Commandbars 12.1.1 and this is my code for loading and saving to a binary file:

' SAVE
Dim pxWrite As PropExchange

Set pxWrite = XtremeCommandBars.CreatePropExchange

pxWrite.CreateAsBinaryFile False, App.Path & "\Toolbar.dat"
ExchangeState pxWrite, cbrMain
ExchangeState pxWrite, cbrDrives
ExchangeState pxWrite, cbrFiles
ExchangeState pxWrite, cbrReport

' LOAD
Dim pxRead As PropExchange
Set pxRead = XtremeCommandBars.CreatePropExchange

If (pxRead.CreateAsBinaryFile(True, App.Path & "\Toolbar.dat")) Then
   ExchangeState pxRead, cbrMain
   ExchangeState pxRead, cbrReport
   ExchangeState pxRead, cbrDrives
   ExchangeState pxRead, cbrFiles
End If

Private Sub ExchangeState(ByRef px As PropExchange, ByRef Toolbar As CommandBars)

Dim pxSection As PropExchange
Dim Options As StateOptions

Set Options = Toolbar.CreateStateOptions
Options.SerializeControls = True
Options.SaveOnlyCustomized = True
Options.SaveOriginalControls = False
Options.SerializeOptions = True
Options.SerializeLayout = True

Set pxSection = px.GetSection(Toolbar.name)
Toolbar.DoPropExchange pxSection, Options

End Sub

When loading from the binary file the changes of an toolbar always will be visible at an other toolbar.
Let's say i change toolbar cbrMain and save all toolbars. When loading the changes will be visible at toolbar cbrReport.

Anyone can help?




]]> Mon, 29 Mar 2010 06:42:43 +0000 http://forum.codejock.com/forum_posts.asp?TID=16536&PID=57837&title=how-to-use-createasbinaryfile#57837