*RESOLVED* values overridden with defaults

[cjqp]

I want to set some public values in my ActiveX control I'm creating for defaults. This I can do fine. The user can change the values at design-time just fine, but when the program is run, the defaults take over again (because the initialize event is triggered). How do I set default values that won't override the user's?
Note: If the user sets the values at run-time it will work fine because it is after the initialize sub is called.

cjqp

[crptcblade]

You need to read and write your property values to a propertybag using the ReadProperties and WriteProperties events...

Private mText As String
 
Public Property Let Text(ByVal s As String)
    mText = s
End Property
Public Property Get Text() As String
    Text = mText
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
        
    Me.Text = PropBag.ReadProperty("Text", "")
 
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
 
    Call PropBag.WriteProperty("Text", Me.Text, "")
 
End Sub

See if that makes a difference.

[cjqp]

I can't seem to quite grasp this, even after reading VBs help...do you know of a tutorial?

cjqp

[cjqp]

Aha, figured it out, thanks for the help!

cjqp