SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Shiquilla en Jueves 1 de Junio de 2006, 21:13

Título: Ayuda Con Propiedad Font
Publicado por: Shiquilla en Jueves 1 de Junio de 2006, 21:13
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
  1. Set titMes1.Font = PropBag.ReadProperty("Font", Extender.Font)
  2.  

Pongo aquí parte del código que tengo para que me digan qué tengo mal.

Código: Text
  1. Private mnTituloDiaSemanaFont As Font
  2.  
  3. Private Sub UserControl_InitProperties()
  4.     Set mnTituloDiaSemanaFont = Extender.Font
  5. End Sub
  6.  
  7. '//Cargar valores de propiedades desde el almacenamiento
  8. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  9.     Set titMes1.Font = PropBag.ReadProperty("Font", Extender.Font)
  10. End Sub
  11.  
  12. '// Escribir valores de propiedades en el almacenamiento
  13. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  14.     PropBag.WriteProperty "Font", titMes1.Font, Extender.Font
  15. End Sub
  16.  
  17. '============= PROPIEDAD FONT DE LOS DIAS DE LA SEMANA ===
  18. Public Property Get Font() As Font
  19.    Set Font = mnTituloDiaSemanaFont
  20. End Property
  21.  
  22. Public Property Set Font(lFont As Font)
  23.    With mnTituloDiaSemanaFont
  24.       .Bold = lFont.Bold
  25.       .Charset = lFont.Charset
  26.       .Italic = lFont.Italic
  27.       .Name = lFont.Name
  28.       .Size = lFont.Size
  29.       .Strikethrough = lFont.Strikethrough
  30.       .Underline = lFont.Underline
  31.       .Weight = lFont.Weight
  32.    End With
  33.    PropertyChanged "Font"
  34. End Property
  35.  
  36. '========================================
  37.  

Pongo una foto para que lo entendais mejor.

Gracias.