drasche | pour une propriété qui s'appellerait mettons "Attributes", voici l'implémentation minimum pour que ça fonctionne bien:
' Initialisation
Private Sub UserControl_InitProperties()
Attributes = DEFAULT_ATTR
End Sub
' Récupération
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Attributes = PropBag.ReadProperty("Attributes", DEFAULT_ATTR)
End Sub
' Sauvegarde
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Attributes", Attributes, DEFAULT_ATTR)
End Sub
|
Le truc est que le property bag sauvegarde tes propriétés dans ton source, comme les contrôles standards.
DEFAULT_ATTR est simplement une constante que tu définis avec une valeur par défaut pour ton contrôle. Attributes est une property que tu définis comme tu veux.
Petite note: pour les couleurs, tu dois utiliser le type OLE_COLOR et non Long pour avoir l'interface de choix des couleurs dans ton contrôle. ---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
|
