Problème avec mon composantRésolu

Question

Bonjour,

Voila, j'ai cr&#233;&#233; un composant 'MonComposant' mais j'ai des probl&#232;mes :s
Je met ce composant sur ma Form1 => MonComposant1

Dans une fonction, j'appelle :
Public sub Fonction1()
   '... blabla
   ' ICI, MonComposant1 a plein de propri&#233;t&#233;s dans je fais "Moncomposant1."
   ' Donc Quand je met qqch dans la propri&#233;t&#233; TAG avant.
   ' Si je met "msgbox MonComposant1.tag"
   ' il affiche bien la valeur, MAIS =>
   Call function2(Form1.MonComposant1)
   '...blabla
End sub
Public sub Fonction2(Compo as MonComposant)
'ICI, mon composant1 n'a plus que les propri&#233;t&#233;s que j'ai d&#233;finie.... donc plus de TAG!
'Donc je d&#233;fini dans le composants la propri&#233;t&#233; TAG (comme plus bas)
' mais "MSGBOX Compo.tag"
' Ca n'affiche rien .... 
End sub

'Dans le composant:
Const m_def_Tag = ""
Dim m_Tag As String

Public Property Get Tag() As String
    Tag = m_Tag
End Property


Public Property Let Tag(ByVal New_Tag As String)
    m_Tag = New_Tag
    
    lblCaption.Tag = Tag

    PropertyChanged "Tag"
End Property

Private Sub UserControl_InitProperties()
    Tag = m_Tag
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    m_Tag = PropBag.ReadProperty("Tag", m_def_Tag)
    Tag = m_Tag
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
   Call PropBag.WriteProperty("Tag", m_Tag, m_def_Tag)
End Sub

Merci Pour l'aide  pcq je suis un peu perdu ... 

R@pt0r

mrdep1978 · Accepted Answer

Essaie en d&#233;finissant ta fonction 2 avec 
Public sub Fonction2(Compo as Object)

Sinon, dans ton composant, ne peux-tu pas te contenter de &#231;a
'Dans le composant:
Const m_def_Tag = ""
Private m_Tag As String

Public Property Get Tag() As String
    Tag = m_Tag
End Property


Public Property Let Tag(ByVal New_Tag As String)
    m_Tag = New_Tag
   'Tu stockes quoi dans lblCaption.Tag ? L'ancienne valeur du Tag ou la nouvelle ?   'Ce serait plus clair en mettant lblCaption.Tag m_Tag ou lblCaption.Tag New_Tag
   'avant le m_Tag = New_Tag
    lblCaption.Tag = Tag
End Property

cs_castor62 · Answer

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii !!!!!! I LOVE YOU ! (L) !!! LOL !

Un grand merci en tout cas !

R@pt0r

cs_castor62 · Answer

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii !!!!!! I LOVE YOU ! (L) !!! LOL !

Un grand merci en tout cas !

R@pt0r

Problème avec mon composant

3 réponses

Discussions similaires