private m_sCaption As String 'variable membre pour stocker le caption Public Property Get Caption() As String Let Caption = m_sCaption; End Property Public Property Set Caption(ByVal sCaption As String) Let m_sCaption = sCaption PropertyChanged("Caption") End Property
Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.writeProperty("Caption", m_sCaption, "") End Sub Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Let m_sCaption = PropBag.readProperty("Caption", "") End Sub
Public Property Get Caption() As String Caption = m_sCaption ' Pas de Let ni de ; dans cette ligne End Property Public Property Set Caption(ByVal sCaption As String) m_sCaption = sCaption ' Pas de Let dans cette ligne PropertyChanged("Caption") End Property
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question