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
|