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ší

Autor: The Bozena