Buenas, estoy haciendo mi primer OCX. Se trata de un calendario parecido al que tiene Outlook. Mi duda es la siguiente:
Ya hize los eventos del control, ahora le estoy metiendo todo el tema de propiedades para que pueda cambiar el BackColor, BackStyle, etc etc. Al ser un calendario, me interesa poder cambiar la fuente a distintas zonas del OCX, por ejemplo, al título de los meses.
Al ejecutar me da error en esta linea:
Set titMes1.Font = PropBag.ReadProperty("Font", Extender.Font)
Pongo aquí parte del código que tengo para que me digan qué tengo mal.
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
'========================================
Pongo una foto para que lo entendais mejor.
Gracias.
