Svojstvo BackColor

Odnosi se na

Pomoću svojstva BackColor možete odrediti boju unutrašnjosti kontrola ili odjeljak. To je svojstvo vrste Long za čitanje/pisanje.

izraz.BackColor

expression Obavezno. Izraz koji vraća jedan od objekata na popisu Primjenjuje se na.

Postavka

Svojstvo BackColor sadrži numerički izraz koji odgovara boji koja se koristi za popunjavanje unutrašnjosti kontrole ili odjeljka.

To svojstvo možete postaviti pomoću sastavljača boja tako da kliknete gumb Sastavi s desne strane okvira svojstva u list svojstava. Pomoću sastavljača boja možete definirati prilagođene boje pozadine za kontrole ili sekcije.

To svojstvo možete postaviti i pomoću koda kontrole ili sekcije list svojstava, makronaredba ili vba koda ili pomoću naredbe Boja ispune u odjeljku Font (na kartici Dizajn ili Oblikovanje, ovisno o tome nalazite li se u prikazu dizajna ili prikazu rasporeda).

U kodu programa Visual Basic for Applications (VBA) to svojstvo možete postaviti pomoću numeričkog izraza. Ta postavka svojstva ima vrstu podataka Dugo.

Zadanu postavku za to svojstvo možete postaviti pomoću kontrole zadani stil kontrole svojstva DefaultControl u VBA kodu.

U objektima Tablica to svojstvo možete postaviti pomoću naredbe Boja ispune u odjeljku Font na kartici Podaci ili u VBA kodu pomoću svojstva DatasheetBackColor.

Napomene

Da biste koristili svojstvo BackColor, svojstvo BackStyle, ako je dostupno, morate postaviti na Normalno.

Primjer

U sljedećim su primjerima pomoću funkcije RGB postavljena svojstva BorderColor, BackColor i ForeColor, ovisno o vrijednosti tekstnog okvira txtPastDue. Ta svojstva možete postaviti i pomoću funkcije QBColor. Ako umetnete sljedeći kod u događaj Trenutni_obrazac ( ), karakteristike prikaza kontrole bit će postavljene kada korisnik otvori obrazac ili se pomakne 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