Svojstvo „BackColor“ („Boja pozadine“)

Odnosi se na

Možete da koristite svojstvo BackColor da biste naveli boju za unutrašnjost kontrola ili odeljak. Čitanje/pisanje dugačko.

izraz.BackColor

expression Obavezno. Izraz koji daje jedan od objekata sa liste „Odnosi se na“.

Postavka

Svojstvo BackColor sadrži brojni izraz koje odgovara boji koja se koristi za popunjavanje unutrašnjosti kontrole ili odeljka.

Možete da koristite alatku „Izrada boje“ da biste postavili ovo svojstvo tako što ćete kliknuti na dugme Izrada sa desne strane polja u list svojstva. Alatka „Izrada boje“ omogućava vam da definišete prilagođene boje pozadine za kontrole ili odeljke.

Ovo svojstvo možete postaviti i pomoću list svojstva kontrole ili odeljka, makro ili Visual Basic for Applications (VBA) koda ili tako što ćete koristiti komandu Boja popune u okviru Font (na kartici Dizajn ili Oblik u zavisnosti od toga da li se nalazite u prikazu dizajna ili u prikazu rasporeda).

U Visual Basic for Applications (VBA) kodu koristite numerički izraz da biste podesili ovo svojstvo. Ova postavka svojstva ima tip podataka Dugačko.

Možete da postavite podrazumevanu vrednost za ovo svojstvo tako što ćete koristiti svojstvo podrazumevani stil kontrole ili DefaultControl kontrole u VBA kodu.

Za objekte Tabela možete da postavite ovo svojstvo pomoću komande Boja popune u okviru Font na kartici Podaci ili u VBA kodu pomoću svojstva DatasheetBackColor.

Napomene

Da biste koristili svojstvo BackColor, svojstvo BackStyle, ako je dostupno, mora biti postavljeno na Normalno.

Primer

Sledeći primer koristi funkciju RGB radi postavljanja svojstava BorderColor, BackColor i ForeColor u zavisnosti od vrednosti txtPastDue okvira za tekst. Možete da koristite i funkciju QBColor da biste postavili ova svojstva. Stavljanje sledećeg kôda u događaj Form_Current () postavlja karakteristike prikaza kontrole čim korisnik otvori obrazac ili pređe na novi 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