Hallo,
in dem Buch schöne neue Welt geht es ja auch ein bisschen um Norm. Wenn ich mein eigenes Steuerelement normieren will, geht das nicht so einfach wie für A. Huxley!
Abstrahiertes Problem:
Eigenes UserControl mit einem Label.
Beim Click auf das Control soll im Label „OK“ stehen. DAs ist kein Problem.
Aber wenn ich nachher das Steuerelement in einem Projekt verwenden will und schreibe:
control1.WordWarp=False 'Die WordWarp des Labels der UserControl auf False setzen.
Wie bringe ich meinem Steuerlement Eigenschaften bei, denn in der Hilfe fand ich nichts???
Vielen Dank im voraus…
Es ist eigentlich ziemlich einfach, einem Steuerelement Eigenschaften
hinzuzufügen. Das funktioniert ziemlich gleich wie bei einem
Klassenmodul:
Im allgemeinen Deklarationsteil deklarierst du eine private Variabel:
Private m\_bolWordWrap As Boolean
Im unteren Teil implementierst du anschließend die Eigenschaft:
Public Property Get WordWrap() As Boolean
WordWrap = m\_bolWordWrap
End Property
Public Property Let WordWrap(ByVal bolNewValue As Boolean)
m\_bolWordWrap = bolNewValue
Laberl1.WordWrap = m\_bolWordWrap
End Property
Achtung: Die Eigenschaften müssen in der WriteProperties-
Prozedur noch gespeichert und in der ReadProperties-Prozedur
entsprechend geladen werden, sonst bleibt die Eigenschaft immer
False!