Woozle at 23:22, 1 January 2007

2007-01-01T23:22:23Z

New page

==loading settings==
This form loads at startup. If you use sub main() startup instead, then put this code there instead. (This code has been adapted somewhat and hasn't actually been tested in this form, but it worked in the original context.)
<pre>
' common objects:
Private objPrefs As clsSettingsXML
Private xtf As xtForm
Private WithEvents ctrlList As xtListBox

Private Sub Form_Load()

' create form saver:
Set xtf = New xtForm
' connect the saver with the actual form object:
xtf.Init Me

' create listbox saver:
Set ctrlList = New xtListBox
' associate it with the listbox control:
ctrlList.Init Me.lbxFolders, True

MakeSettings
objPrefs.Root.Load
End With
' destroy the Settings Manager so it won't have bad memories:
Set objPrefs = Nothing
End Sub
</pre>
==saving settings==
<pre>
Private Sub Form_Unload(Cancel As Integer)
Status = "Saving settings..."
MakeSettings
objPrefs.Save
End Sub
</pre>
==common code==
Code used for both loading and saving
<pre>
Private Sub MakeSettings()
' create the Settings Manager object:
Set objPrefs = New clsSettingsXML
With objPrefs
.Init
.Load False ' load settings from XML file
' add the two savers to the Settings Manager tree:
.Root.AddItem xtf
.Root.AddItem ctrlList
End With
End Sub
</pre>

User:Woozle/VB/Settings manager/sample code - Revision history

Woozle at 23:22, 1 January 2007