' Kategorien-Bibliothek
Namespace ActiveXDotNet
Allgemeine Schnittstelle AxMyControl
Eigentum UserText () als Schnur
Enden-Schnittstelle 'AxMyControl
Enden-namespace
Allgemeine Kategorie UserControl1
Privates mStr_UserText wie [Schnur]
Staatseigentum UserText () als Schnur
Erhalten
mStr_UserText zurückbringen
Ende erhalten
Einstellen (ByVal Wert als Schnur)
mStr_UserText = Wert
'Den Textkastensteuerwert auch aktualisieren.
txtUserText.Text = Wert
Enden-Satz
Enden-Eigentum
Enden-Kategorie 'myControl
'Netz-APP-Code
|