BackColor tulajdonság

Érvényesség

A BackColor (Háttérszín) tulajdonsággal megadhatja egy vezérlő vagy egy szakasz belső kitöltőszínét. Olvasható/írható, Hosszú adattípusú.

kifejezés.BackColor

Kifejezés Megadása kötelező. Egy kifejezés, amely a Hatókör listában szereplő objektumok egyikét adja vissza.

Beállítás

A BackColor tulajdonság olyan numerikus kifejezést tartalmaz, amely a vezérlőelem vagy a szakasz belső részét kitöltő színt jelöli.

A tulajdonságot a Színszerkesztő segítségével állíthatja be, a tulajdonságlapon a tulajdonságmezőtől jobbra lévő Szerkesztés gombra kattintva. A Színszerkesztővel definiálhat egyéni háttérszíneket a vezérlőkhöz és a szakaszokhoz.

Beállíthatja ennek a tulajdonságnak az értékét a tulajdonságlapon, makróval, illetve Visual Basic for Applications (VBA) -kóddal, valamint a Betűtípus csoport Háttérszín gombjával is (a Tervezés vagy a Formátum lapon, attól függően, hogy Tervező nézetben vagy Elrendezés nézetben van-e).

Visual Basic for Applications (VBA) -kódban numerikus kifejezés társításával tudja beállítani a tulajdonságot. A tulajdonság Hosszú adattípusú.

A tulajdonság alapértékét beállíthatja a vezérlőelem alapértelmezés szerinti stílusa segítségével, vagy a DefaultControl tulajdonság használatával VBA-kódban.

Tábla objektumok esetében ezt a tulajdonságot az Adatok lap Betűtípus csoportjában lévő Háttérszín paranccsal tudja beállítani, illetve VBA-kódban a DatasheetBackColor tulajdonság használatával.

Megjegyzések

A BackColor tulajdonság használatához a BackStyle (Háttérstílus) tulajdonságnak (ha elérhető) Normál értékűnek kell lennie.

Példa

Az alábbi példa az RGB függvénnyel beállítja a BorderColor, a BackColor és a ForeColor tulajdonságot a txtPastDue nevű beviteli mezőben lévő érték alapján. A QBColor függvénnyel is beállíthatja ezeket a tulajdonságokat. Ha az alábbi kódot a Form_Current( ) eseménykezelő eljárásba helyezi, az beállítja a vezérlő megjelenítési jellemzőit, amint a felhasználó megnyitja az űrlapot vagy új rekordra lép.

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