Rubrik: Controls · UserControl | VB-Versionen: VB5, VB6 | 20.03.03 |
Default-Eigenschaft des UserControl Mit nur 1 Zeile VB-Code lässt sich die Default-Eigenschaft des UserControls auslesen | ||
Autor: Florian Platzer | Bewertung: | Views: 14.052 |
www.vbmaster.gbadmin.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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.