PropertyBag Problem

[Xa0z]

I have this code:

Private def_backcolor As OLE_COLOR
Private def_caption As String
Private def_font As StdFont
Private def_forecolor As OLE_COLOR
Private def_selected As Boolean
 
Private color As Long
Private sel As Boolean
Private POINTS(15) As POINTAPI
 
Private Const leftcurve As Double = 0.5
Private Const rightcurve As Double = 0.3
 
Public Property Get BackColor() As OLE_COLOR
    BackColor = color
End Property
 
Public Property Let BackColor(new_color As OLE_COLOR)
    color = new_color
    UserControl.BackColor = RndColor(TranslateColor(new_color))
    UserControl.MaskColor = UserControl.BackColor
    Refresh
End Property
 
Public Property Get Caption() As String
    Caption = lblCaption.Caption
End Property
 
Public Property Let Caption(new_caption As String)
    lblCaption.Caption = new_caption
    Refresh
End Property
 
Public Property Get Font() As StdFont
    Set Font = lblCaption.Font
End Property
Public Property Set Font(new_font As StdFont)
    Set lblCaption.Font = new_font
    Refresh
End Property
 
Public Property Get ForeColor() As OLE_COLOR
    ForeColor = UserControl.ForeColor
End Property
Public Property Let ForeColor(new_color As OLE_COLOR)
    UserControl.ForeColor = new_color
    Refresh
End Property
 
Friend Property Get Selected() As Boolean
    Selected = sel
End Property
Friend Property Let Selected(new_state As Boolean)
    sel = new_state
    Refresh
End Property
 
Private Sub UserControl_InitProperties()
    def_backcolor = UserControl.BackColor
    def_caption = ""
    Set def_font = New StdFont
    def_forecolor = UserControl.ForeColor
    def_selected = False
    'hdc = GetDC(UserControl.parent.hwnd)
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    PropBag.ReadProperty "BackColor", def_backcolor
    PropBag.ReadProperty "Caption", def_caption
    PropBag.ReadProperty "Font", def_font
    PropBag.ReadProperty "ForeColor", def_forecolor
    PropBag.ReadProperty "Selected", def_selected
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "BackColor", UserControl.BackColor, def_backcolor
    PropBag.WriteProperty "Caption", lblCaption.Caption, def_caption
    PropBag.WriteProperty "Font", lblCaption.Font, def_font
    PropBag.WriteProperty "ForeColor", UserControl.ForeColor, def_forecolor
    PropBag.WriteProperty "Selected", sel, def_selected
End Sub

For a usercontrol (pretty obvious hmmm ). Anyway, it doesn't work, for some reason it just doesn't store the data. Everytime I open or run the project it's back to defaults. I am not building the usercontrol in it's own seperate project but in a .exe project. Is that the problem? Is there some workaround?

Many regards in advance,
Xa0z

[dglienna]

Here is an example that I found:

[Xa0z]

Here is an example that I found:

That sample saves the binary data of the PropertyBag, I thought the propertybag would save itself into a .frx file

[dglienna]

I don't think so.

[Xa0z]

I don't think so.

Why is it then that I don't see as many files in my project folder as I have controls on my form? The propertybag of the form is stored together with the propertybags of all the controls on the form into one .frx file, I'm quite sure about that. But I Do have to write a method to write my PropertyBag to that file? that's kinda lame :S

[dglienna]

You probably have to, but I'm not sure, either.

[Xa0z]

You probably have to, but I'm not sure, either.

Well thanks for your help anyway buddy! I'll try it eitherway

[Wokawidget]

UserControl.BackColor = PropBag.ReadProperty("BackColor", def_backcolor)

That's what you're missing

Woka

[Xa0z]

lol, now I see it :P thanks alot Woka!