Rekvizīts BackColor

Attiecas uz

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

izteiksme.BackColor

expression Obligāti. 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