(-hg)

Eigentlich wäre es ein schöner Zug, wenn man bei einem Steuerelement die Eigenschaften auf einfachste Weise wieder auf die Standard- bzw. Ursprungswerte zurücksetzen könnte, vor allem, wenn es über eine stattlichere Anzahl an Eigenschaften verfügt. Wenn Sie für Ihre UserControls PropertyPages anlegen, ist es kein Problem, dort eine Schaltfläche zum Zurücksetzen unterzubringen. Sie können aber auch eine Hilfseigenschaft hinzufügen, die im Eigenschaftenfenster angezeigt wird und diese Rücksetzfunktion über einen Doppelklick ermöglicht.

Dazu legen Sie eine Eigenschaft (mit Property Get- und Property Let-Prozedur) des Datentyps Boolean an und nennen Sie sie beispielsweise "ResetToDefaults". In der Property Let-Prozedur erfolgt die Rücksetzung auf die Standardwerte, die Sie mit PropertyChanged "" abschließen. In der Property Get-Pozedur geben Sie einfach False zurück.

Bei einem Doppelklick auf die Eigenschaft im Eigenschaftenfenster wird so zwar die Property Let-Prozedur ausgeführt, jedoch immer False (Falsch) als Wert angezeigt.

Public Property Get ResetToDefaults() As Boolean
  ResetToDefaults = False
End Property

Public Property Let ResetToDefaults(ByVal New_ ResetToDefaults _
 As Boolean)
  '... beliebiger Code
  PropertyChanged ""
End Property

Copyright © 1999 - 2011 Harald M. Genauck, ip-pro gmbh  /  Impressum