' Seção General
Private m_Caption As String
' No código
Public Property Get Caption() As String
Caption = m_Caption
End Property
Public Property Let Caption(ByVal parValor As String)
m_Caption = parValor
PropertyChanged "Caption"
End Property
' O da fonte vai de brinde pra vc naum bater muita cabeça
Public Property Get Font() As Font
Set Font = UserControl.Font
End Property
Public Property Set Font(ByVal passFont As Font)
Set UserControl.Font = passFont
PropertyChanged "Font"
End Property
' Coloca os eventos do userControl Lá no finzinho do code à unha(Ctrl+x e dpz Ctrl +v)
' Por último os eventos do UserControl de Carregamento e gravação de valores das
' propriedades (Essa é a melhor parte
)
Private Sub UserControl_InitProperties()
Set m_Font = Ambient.Font
m_Caption = Extender.Name
End Sub
' Evento de Carregamento das propriedades Salvas
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set UserControl.Font = PropBag.ReadProperty("Font", Ambient.Font)
m_Caption = PropBag.ReadProperty("Caption", Extender.Name)
End Sub
' Evento de Gravação dos novos valores das propriedades:
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Font", UserControl.Font, Ambient.Font)
Call PropBag.WriteProperty("Caption", m_Caption, Extender.Name)
End Sub
Qq Coisa Tamos por ae... Abraços, Sidnei
