Tvorba t°φd a ActiveX komponent

Vlastnosti
Jestli₧e mßte vlastnost prvku, kterou chcete mapovat na vlastnost jinΘho prvku (nap°φklad mßte TextBox ve VaÜφ komponent∞ a pokud u₧ivatel zm∞nφ vlastnost Text VaÜeho prvku, tak chcete, aby se zm∞nila i vlastnost Text TextBoxu), musφte zapsat k≤d nßsledovn∞:

'Vlastnost Text. Je volßna, kdy₧ klient po₧aduje hodnotu z TextBoxu
Public Property Get Text() As String
    Text = txtMain.Text 'txtMain je TextBox v prvku
End Property

'Tato procedura je volßna, pokud klient po₧aduje zm∞nu hodnoty
Public Property Let Text(ByVal New_Text As String)

    'P°ed zm∞nou se m∙₧ete p°esv∞dΦit, ₧e text nenφ nap°φklad prßzdn²
    'If New_Text = Empty Then Exit Property

    txtMain.Text = New_Text 
    PropertyChanged "Text" 
End Property

Zp∞t DalÜφ