Tvorba t°φd a ActiveX komponent
Uklßdßnφ
a naΦφtßnφ hodnot
Aby to nebylo vÜechno tak jednoduchΘ, tak si vÜimn∞te, ₧e kdy₧ nastavφte
vlastnosti VaÜφ komponenty na formulß°i klienta b∞hem jeho design m≤du
a formulß° zav°ete a zase otev°ete, tak o toto nastavenφ p°ijdete. Tak₧e
je nutnΘ jeÜt∞ oÜet°it uklßdßnφ a naΦφtßnφ nastaven²ch hodnot.
Abychom to mohli ud∞lat, je t°eba zapsat nßsledujφcφ procedury do vaÜφ
komponenty:
'NaΦφtß hodnoty
vlastnostφ z ·lo₧iÜt∞
Private Sub
UserControl_ReadProperties(PropBag As PropertyBag)
End Sub
'Zapisuje hodnoty
do ulo₧iÜt∞
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
End Sub
Do t∞chto procedur pak musφme pro ka₧dou vlastnost, pro kterou chcete hodnoty uklßdat a naΦφtat zapsat k≤d pro tyto operace, a sice pomocφ metod PropBag.WriteProperty a PropBag.ReadProperty, kterΘ majφ nßsledujφcφ syntaxi:
ReadProperty(Name
As String, [DefaultValue])
WriteProperty(Name As String, Value, [DefaultValue])
Jako p°φklad lze pou₧φt nßsledujφcφ k≤d pro uklßdßnφ hodnoty nastavenΘ ve vlastnosti Text (vÜimn∞te si vyu₧itφ ulo₧enφ defaultnφ hodnoty):
Private Sub
UserControl_ReadProperties(PropBag As PropertyBag)
m_Text = PropBag.ReadProperty("Text", m_def_Text)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Text", m_Text, m_def_Text)
End Sub