Rekvizīts BackColor

Attiecas uz

Objekts BoundObjectFrame

Objekts ObjectFrame

Objekts ComboBox

Objekts OptionGroup

Objekts FormatCondition

Objekts Rectangle

Objekts Image

Objekts Section

Objekts Label

Objekts TextBox

Objekts ListBox

Varat izmantot rekvizītu BackColor, lai norādītu vadīkla vai sadaļa interjera krāsu. Lasāms/rakstāms Long.

izteiksme.BackColor

izteiksme obligāta. Izteiksme, kas atgriež vienu no objektiem sarakstā Attiecas uz.

Iestatījums

Rekvizīts BackColor satur skaitliska izteiksme, kas atbilst krāsai, kas izmantota, lai aizpildītu vadīklas vai sadaļas interjeru.

Lai iestatītu šo rekvizītu, varat izmantot krāsu veidotāju — pa labi no vienuma rekvizītu lapa rekvizītu lodziņa noklikšķiniet uz pogas Izveidot. Krāsu veidotāja lietošana sniedz iespēju definēt pielāgotas aizmugures krāsas vadīklām vai sadaļām.

Šo rekvizītu varat arī iestatīt, izmantojot vadīklas vai sadaļas rekvizītu lapa, makro vai Visual Basic for Applications (VBA) kodu vai izmantojot komandu Fill Colorsadaļā Fonts (cilnē Noformējums vai Formatējums atkarībā no tā, vai izmantojat noformējuma vai izkārtojuma skatu).

Visual Basic for Applications (VBA) kodā izmantojiet skaitlisku izteiksmi, lai šo rekvizītu iestatītu. Šī rekvizīta iestatījuma datu tips ir Long.

Varat iestatīt šī rekvizīta noklusējuma vērtību, izmantojot vadīklas noklusējuma vadīklas stils vai rekvizītu DefaultControl VBA kodā.

Objektiem Table šo rekvizītu varat iestatīt, izmantojot komandu Fill Color cilnes Dati sadaļā Fonts vai VBA kodā, izmantojot rekvizītu DatasheetBackColor.

Piezīmes

Lai izmantotu rekvizītu BackColor, rekvizīts BackStyle, ja tas ir pieejams, ir jāiestata uz Normal.

Piemērs

Tālāk esošajā piemērā tiek izmantota funkcija RGB, lai iestatītu rekvizītus BorderColor, BackColor un ForeColor atkarībā no txtPastDue tekstlodziņa vērtības. Lai šos rekvizītus iestatītu, varat izmantot arī funkciju QBColor. Ievietojot tālāk norādīto kodu notikumā Form_Current( ), vadīklu attēlojuma pazīmes tiek iestatītas, tiklīdz lietotājs atver formu vai pāriet uz jaunu ierakstu.

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
Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×