Schöne Neue Welt

Computer: Software & Programmierung Visual Basic
#1

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…

Gruß [email protected]

#2

Hallo

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!

Mit freundlichen Grüßen

Samuel

Team: Name entfernt