Programación General > Visual Basic 6.0 e inferiores

 Ayuda Con Propiedad Font

(1/1)

Shiquilla:
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:

--- Código: Text ---Set titMes1.Font = PropBag.ReadProperty("Font", Extender.Font) 
Pongo aquí parte del código que tengo para que me digan qué tengo mal.


--- Código: Text ---Private mnTituloDiaSemanaFont As Font Private Sub UserControl_InitProperties()    Set mnTituloDiaSemanaFont = Extender.FontEnd Sub '//Cargar valores de propiedades desde el almacenamientoPrivate Sub UserControl_ReadProperties(PropBag As PropertyBag)    Set titMes1.Font = PropBag.ReadProperty("Font", Extender.Font)End Sub '// Escribir valores de propiedades en el almacenamientoPrivate Sub UserControl_WriteProperties(PropBag As PropertyBag)    PropBag.WriteProperty "Font", titMes1.Font, Extender.FontEnd Sub '============= PROPIEDAD FONT DE LOS DIAS DE LA SEMANA ===Public Property Get Font() As Font   Set Font = mnTituloDiaSemanaFontEnd 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.

Navegación

[0] Índice de Mensajes