اضافه کردن Font به Prpperty برای OCX

[Pr0grammer]

سلام...
لطفاً براي اضافه کردن Font به Property يک OCX اي که طراحي کرديم، راهنمائيم کنيد... چطوري بايد اين کارو کرد؟!
خيلي ممنونم

[Mbt925]

Public Property Get Font() As Font
Set Font = UserControl.Font
End Property

Public Property Set Font(ByVal New_Font As Font)
Set UserControl.Font = New_Font

PropertyChanged "Font"
End Property




شما به یادگیری اصولی ابزارنویسی نیاز دارید.

[Pr0grammer]

در ReadProperties و WriteProperties مقدار پیش فرض رو باید چی بزارم؟
من از این کد استفاده کردم اما جواب نمیده :



Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Font = PropBag.ReadProperty("Font", "Tahoma")
End Sub

و


Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Font", Text1.Font, "Tahoma")
End Sub

[Mbt925]

برای نسبت دادن اشیاء بهم از Set استفاده میشه.



Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set Font = PropBag.ReadProperty("Font", Ambient.Font)
End Sub
و


Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Font", Text1.Font, Ambient.Font)
End Sub