Default-Eigenschaft des UserControl Mit nur 1 Zeile VB-Code lässt sich die Default-Eigenschaft des UserControls auslesen
Autor:   Florian Platzer	Bewertung:     [ Jetzt bewerten ]	Views:  4.656
www.vbmaster.gbadmin.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 21 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Jeder kennt die Default-Eigenschaft des CommandButtons. Will man sich nun seinen eigenen Button basteln, inkl. Default-Eigenschaft, so muss man einfach nur die UserControl-Eigenschaft DefaultCancel auf True setzen. Aber wie lässt sich nun auslesen, ob die Default-Eigenschaft des fertigen Buttons auf True oder auf False steht?

Deklarieren Sie eine Private-Variable im Allgemeinteil des UserControl, die dem aktuellen Wert entspricht:

Dim m_Default As Boolean

Immer, wenn sich eine Ambient-Eigenschaft verändert, kann man den Default-Wert wie folgt ermitteln:

Private Sub UserControl_AmbientChanged(PropertyName As String)
  m_Default = Ambient.DisplayAsDefault
End Sub

Jetzt brauchen Sie nur noch den Button entsprechend als Default-Button kenntlich zu machen, bzw. die Kenntlichmachung wieder aufheben.