Discussion :

[irreantum]

Bonjour,

Je veux developper un controle activeX qui possède des propriétés objet (exemple : voir le control TabTrip de Microsoft, propriété Tabs)

comment utiliser les methodes Readproperties et WriteProperties pour que, après avoir ajouté des éléments dans la collection en mode création sur la fenêtre d'une appli vb, le controle se reconstruise en mode exécution (après l'exécution de la methode ReadProperties)

Merci de votre aide !

[zazaraignée]

Faudra voir du côté du développement d'une nouvelle classe. Regarde dans l'aide de VB pour la programmation de classes personnalisées.

À mon humble avis, en tout cas...

[irreantum]

Faudra voir du côté du développement d'une nouvelle classe. Regarde dans l'aide de VB pour la programmation de classes personnalisées.

À mon humble avis, en tout cas...

oui, en fait, j'ai incorporé une classe Onglet et une classe collection Onglets au controle utilisateur mais entre le mode création et le mode utilisation, l'instance du controle est détruite puis reconstruite à partir des propriétés enregistrée a l'aide de writeproperties ! je ne parviens pas à mémoriser la collection d'onglets

remarque : J'utilise une procédure Property get et property Let Onglets qui permet d'acceder et de modifier la collection d'onglet.

[Vld44]

hmm je dirais qu'il faut mettre en dur l'initialisation de te collection dans usercontrol_initialize

[irreantum]

hmm je dirais qu'il faut mettre en dur l'initialisation de te collection dans usercontrol_initialize

Oui, c'est une idée ! il me semble que l'événement Initialize s'exécute avant readproperties, non ? donc je ne peux pas construire la boite tant que je n'ai pas lu ses propriétés :
voici le contenu de readproperties

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  Debug.Print "UserControl_ReadProperties"
  Set Font = PropBag.ReadProperty("Font", Ambient.Font)
  BackColor = PropBag.ReadProperty("BackColor", Ambient.BackColor)
  DesabledColorText = PropBag.ReadProperty("DesabledColorText", DesabledCouleurLabel)
  EnabledColorText = PropBag.ReadProperty("EnabledColorText", EnabledCouleurLabel)
  UnselectedOngletColor = PropBag.ReadProperty("UnselectedOngletColor", UnselectedOngletCouleur)
  SelectedOngletColor = PropBag.ReadProperty("SelectedOngletColor", SelectedOngletCouleur)
  Set mcolOnglets = PropBag.ReadProperty("Onglets", Nothing)
  Call ConstruireBoîte
  Relief = PropBag.ReadProperty("Relief", Relief3D)
'  OngletCourant = PropBag.ReadProperty("OngletCourant", 0)
End Sub

je pensais construire la boite à onglet juste après avoir lu la propriété "Onglets" mais non, ça ne fonctionne pas !

[Vld44]

Non mais le userControl_initialize est lancé en mode VB sans même que tu n'exécute ton programme

L'idée est de ne pas stocker dans une property ce qui t'intéresse mais de te faire ta property custom par exemple, sous la forme d'une variable du controle initialisée danns le initialize

[irreantum]

Juste une petite précision : après avoir lu une question fondemmentale sur le manque de couleur des boites à onglets de bases, je me suis mis en devoir de développer moi-meme une boite à onglet colorisable dont l'onglet sélectionné sera de la couleur de la boite et les autres onglets de la couleur du fond du controle (pour plus de contraste).

Bien evidemment, le code obtenu sera ajouté au codes de developpez.com !
A+

[zazaraignée]

Alors bonne chance et je vais suivre ça de près. Vois-tu, je n'ai programmé qu'une fois un contrôle activeX juste pour voir comment... Je ne serai pas d'une bien grande aide mais je suis curieuse du résultat.