Freigeben über

Label.BorderColor-Eigenschaft (Access)

  • Artikel

Verwenden Sie die BorderColor-Eigenschaft , um die Farbe des Rahmens eines Steuerelements anzugeben. Long mit Lese-/Schreibzugriff.

Syntax

Ausdruck. Bordercolor

Ausdruck Eine Variable, die ein Label-Objekt darstellt.

HinwBemerkungeneise

Die Einstellung der BorderColor-Eigenschaft ist ein numerischer Ausdruck, der der Farbe entspricht, die Sie für den Rahmen eines Steuerelements verwenden möchten.

Sie können die Standardeinstellung für diese Eigenschaft festlegen, indem Sie das Standardsteuerelementformat eines Steuerelements oder die DefaultControl-Eigenschaft in Visual Basic verwenden.

Die Rahmenfarbe eines Steuerelements ist nur sichtbar, wenn seine SpecialEffect-Eigenschaft auf Flat oder Shadowed festgelegt ist. Ist die SpecialEffect-Eigenschaft auf einen anderen Wert als „Flach“ oder „Schattiert“ festgelegt, wird die Einstellung der SpecialEffect-Eigenschaft in Flach geändert, sobald die BorderColor-Eigenschaft festgelegt wurde.

Beispiel

Im folgenden Beispiel werden die Eigenschaften BorderColor, BackColor und ForeColor mit der RGB-Funktion in Abhängigkeit vom Wert des txtPastDue-Textfelds festgelegt. Sie können diese Eigenschaften auch mit der QBColor -Funktion festlegen.

Wenn Sie den folgenden Code in das Form_Current( ) -Ereignis einfügen, werden die Anzeigemerkmale des Steuerelements festgelegt, sobald der Benutzer ein Formular öffnet oder zu einem neuen Datensatz wechselt.

Sub Form_Current() 
 Dim curAmntDue As Currency, lngBlack As Long 
 Dim lngRed As Long, lngYellow As Long, lngWhite As Long 
 
 If Not IsNull(Me!txtPastDue.Value) Then 
  curAmntDue = Me!txtPastDue.Value 
 Else 
  Exit Sub 
 End If 
 lngRed = RGB(255, 0, 0) 
 lngBlack = RGB(0, 0, 0) 
 lngYellow = RGB(255, 255, 0) 
 lngWhite = RGB(255, 255, 255) 
 If curAmntDue > 100 Then 
  Me!txtPastDue.BorderColor = lngRed 
  Me!txtPastDue.ForeColor = lngRed 
  Me!txtPastDue.BackColor = lngYellow 
 Else 
  Me!txtPastDue.BorderColor = lngBlack 
  Me!txtPastDue.ForeColor = lngBlack 
  Me!txtPastDue.BackColor = lngWhite 
 End If 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.