Private mnTituloDiaSemanaFont As Font
Private Sub UserControl_InitProperties()
Set mnTituloDiaSemanaFont = Extender.Font
End Sub
'//Cargar valores de propiedades desde el almacenamiento
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set titMes1.Font = PropBag.ReadProperty("Font", Extender.Font)
End Sub
'// Escribir valores de propiedades en el almacenamiento
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Font", titMes1.Font, Extender.Font
End Sub
'============= PROPIEDAD FONT DE LOS DIAS DE LA SEMANA ===
Public Property Get Font() As Font
Set Font = mnTituloDiaSemanaFont
End Property
Public Property Set Font(lFont As Font)
With mnTituloDiaSemanaFont
.Bold = lFont.Bold
.Charset = lFont.Charset
.Italic = lFont.Italic
.Name = lFont.Name
.Size = lFont.Size
.Strikethrough = lFont.Strikethrough
.Underline = lFont.Underline
.Weight = lFont.Weight
End With
PropertyChanged "Font"
End Property
'========================================