Modifier le Tag d'un UserControlRésolu

Question

Le Tag est une propriété définie par défaut lors de la création du UserControl. Comme fait on pour le modifier à l'intérieur du code source du UserControl ?

J'ai essayé : UserControl.Tag="test", qui ne génère pas d'erreur, mais ne fait rien (MsgBox UserControl.Tag)

Faut il que je redéfinisse les property Let et Get ?

Merci.

cs_EBArtSoft · Accepted Answer

A placer dans le code du control


Public Property Get Tag() As Variant
    Tag = UserControl.Tag
End Property

Public Property Let Tag(ByVal vNewValue As Variant)
    UserControl.Tag = vNewValue
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    UserControl.Tag = PropBag.ReadProperty("Tag", "")
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "Tag", UserControl.Tag, ""
End Sub


@+

E.B.

cboulas · Answer

Il faut que tu fasse une fonction public dans ton contrôle, cette fonction modifie le tag, et pourrat être appeler de l'extérieur.

ex : call MonControl.Toto("MONTEXTE")

la fonction inscrit "MONTEXTE" dans le tag du contrôle

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_salazar · Answer

Oui, mais je veux qu'il s'initialise de l'interieur, au meme titre qu'on définit son .width ou d'autres parametres créés.

J'ai essayé en redéfinissant les property Let et Get Tag. L'initialisation du UserControl.Tag se fait, mais pas celle de l'objet créé sur la Form.

Modifier le Tag d'un UserControl

3 réponses

Discussions similaires