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