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Üφ