BackColor-egenskapen

Gjelder for

Du kan bruke egenskapen Bakgrunnsfarge til å angi farge for innsiden på kontroll eller inndeling. Lese/skrive Lang.

uttrykk.BackColor

uttrykk Påkrevd. Et uttrykk som returnerer ett av objektene i Gjelder for-listen.

Innstilling

Egenskapen Bakgrunnsfarge inneholder en numerisk uttrykk som tilsvarer fargen som brukes til å fylle innsiden på en kontroll eller inndeling.

Du kan bruke fargeverktøyet til å angi denne egenskapen ved å klikke på Bygg-knappen til høyre for egenskapsboksen i egenskapsark. Ved hjelp av fargeverktøyet kan du lage egendefinerte bakgrunnsfarger for kontroller eller inndelinger.

Du kan også angi denne egenskapen ved å bruke egenskapsark for en kontroll eller inndeling, en makro, eller Visual Basic for Applications (VBA)-kode, eller ved å bruke Fyllfarge-kommandoen under Skrift (på Utforming- eller Format-fanen, avhengig av om du er i utformingsvisning eller oppsettvisning).

Bruk et numerisk uttrykk til å angi denne egenskapen i Visual Basic for Applications (VBA)-kode. Denne egenskapsinnstillingen har datatypen Lang.

Du kan angi standard for denne egenskapen ved hjelp av kontrollens standard kontrollstil eller egenskapen DefaultControl i VBA-kode.

For Table-objekter kan du angi denne egenskapen ved bruk av kommandoen Fill Color under Skrift på Data-fanen, eller i VBA-koden ved hjelp av egenskapen DatasheetBackColor.

Merknader

Hvis du ønsker å bruke egenskapen BackColor, må egenskapen BackStyle, hvis den er tilgjengelig, angis til Normal.

Eksempel

Følgende eksempel bruker funksjonen RGB til å angi egenskapene BorderColor, BackColor og ForeColor, avhengig av verdien i tekstboksen txtPastDue. Du kan også bruke funksjonen QBColor til å angi disse egenskapene. Hvis du legger følgende kode til i hendelsen Form_Current (), angis kontrollen Visningsegenskaper så snart brukeren åpner et skjema eller flytter til en ny post.

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