Velja za
Predmet BoundObjectFrame |
Predmet ObjectFrame |
Predmet ComboBox |
Predmet OptionGroup |
Predmet FormatCondition |
Predmet Rectangle |
Predmet Image |
Predmet Section |
Predmet Label |
Predmet TextBox |
Predmet ListBox |
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