Tvorba tříd a ActiveX komponent

Defaultní hodnoty
Nejjednodušší metoda pro vytváření defaultních hodnot je vytvořit konstantu a tu pak přiřadit vlastnosti při inicializaci komponenty:

Const m_def_Text = "The Bozena" 

Private Sub UserControl_InitProperties()
    m_Text = m_def_Text
End Sub

Následně ale také musíte specifikovat m_def_Text v procedurách WriteProperties a ReadProperties. 

Máte-li například vlastnost, jejíž defaultní hodnota je název jméno prvku (například jako vlastnost Caption prvku Label), pak musíte použít trochu jiný postup. Je jasné, že nemůžete použít konstantu pro defaultní hodnotu z toho důvodu, že neznáte jméno komponenty. Tudíž si nevytvoříte konstantu, ale privátní proměnnou, do které přiřadíte hodnotu až při inicializaci prvku:

Private m_def_Text As String
Private Sub UserControl_Initialize()
    m_def_Text = UserControl.Name 
End Sub

Zpět Další

Autor: The Bozena