Vlastnost BackColor (Barva pozadí)

Platí pro

Pomocí vlastnosti BackColor můžete určit barvu interiéru Ovládací prvek nebo Sekce. Typ Long pro čtení/zápis.

Výraz.BackColor

Výraz Povinný argument. Výraz, který vrátí jeden z objektů v seznamu Platí pro.

Nastavení

Vlastnost BackColor obsahuje Číselný výraz, která odpovídá barvě použité k vyplnění interiéru ovládacího prvku nebo oddílu.

Tuto vlastnost můžete nastavit pomocí Tvůrce barev kliknutím na tlačítko Sestavit napravo od pole vlastnosti v Seznam vlastností. Pomocí Tvůrce barev můžete definovat vlastní barvy pozadí pro ovládací prvky nebo oddíly.

Tuto vlastnost můžete také nastavit pomocí Seznam vlastností ovládacího prvku nebo oddílu , kódu Makro nebo jazyka VBA (Visual Basic for Applications) nebo pomocí příkazu Barva výplně v části Písmo (na kartě Návrh nebo Formát , podle toho, jestli jste v návrhovém zobrazení nebo v zobrazení rozložení).

V kódu jazyka VBA (Visual Basic for Applications) použijte k nastavení této vlastnosti číselný výraz. Nastavení této vlastnosti má datový typ Long.

Výchozí hodnotu pro tuto vlastnost můžete nastavit pomocí Výchozí styl ovládacího prvku ovládacího prvku nebo vlastnosti DefaultControl v kódu jazyka VBA.

Pro objekty typu Table (Tabulka) můžete tuto vlastnost nastavit pomocí příkazu Barva výplně ve skupině Písmo na kartě Data nebo v kódu jazyka VBA pomocí vlastnosti DatasheetBackColor.

Poznámky

Když chcete použít vlastnost Barva pozadí, musí být vlastnost Styl pozadí (pokud je dostupná) nastavená na Normální.

Příklad

Následující příklad používá funkci RGB k nastavení vlastností BorderColor, BackColor a ForeColor v závislosti na hodnotě textového pole txtPastDue. K nastavení těchto vlastností můžete použít také funkci QBColor. Když umístíte následující kód do události Form_Current( ), nastaví se charakteristiky zobrazení ovládacího prvku, jakmile uživatel otevře formulář nebo se přesune na nový záznam.

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