Lastnost BackColor

Velja za

Z lastnostjo BackColor lahko določite barvo notranjosti kontrolnik ali odsek. Dolgo za branje/pisanje.

izraz.BackColor

izraz Obvezen. Izraz, ki vrne enega od predmetov s seznama »Velja za«.

Nastavitev

Lastnost BackColor vsebuje številski izraz, ki ustreza barvi notranjosti kontrolnika ali razdelka.

Z graditeljem barv lahko nastavite to lastnost tako, da kliknete gumb Graditev na desni strani polja z lastnostmi v list z lastnostmi. Z graditeljem barv lahko določite barve ozadja po meri za kontrolnike ali odseke.

To lastnost lahko nastavite tudi tako, da uporabite list z lastnostmi, makro ali kodo Visual Basic for Applications (VBA) za kontrolnik ali razdelek; ali tako, da kliknete ukaz Barva polnila v razdelku Pisava (na zavihku Načrt ali Oblika zapisa, odvisno od tega, ali ste v pogledu načrta ali postavitve).

V kodi Visual Basic for Applications (VBA) to lastnost nastavite s številskim izrazom. Nastavitev te lastnosti ima vrsto podatkov Dolgo.

Privzeto nastavitev te lastnosti nastavite tako, da uporabite privzeti slog kontrolnika ali lastnost DefaultControl v kodi VBA.

Za predmete Table (Tabela) lahko to nastavitev nastavite z ukazom Barva polnila v razdelku Pisave na zavihku Podatki, ali v kodi VBA z lastnostjo DatasheetBackColor.

Opombe

Če želite uporabiti lastnost BackColor, mora biti lastnost BackStyle, če je na voljo, nastavljena na Navadno.

Primer

V tem primeru je uporabljena funkcija RGB za nastavitev lastnosti BorderColor, BackColor in ForeColor glede na vrednost polja z besedilom txtPastDue. Te lastnosti lahko nastavite tudi s funkcijo QBColor. Če spodnjo kodo dodate v dogodek Form_Current (), se značilnosti prikaza kontrolnika nastavijo takoj, ko uporabnik odpre obrazec ali se pomakne v nov zapis.

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