Svojstvo BackColor

Primjenjuje se na

Objekt BoundObjectFrame

Objekt ObjectFrame

Objekt ComboBox

Objekt OptionGroup

Objekt FormatCondition

Objekt Rectangle

Objekt Image

Objekt Section

Objekt Label

Objekt TextBox

Objekt ListBox

Pomoću svojstva BackColor možete odrediti boju unutrašnjosti kontrole ili odjeljka. Vrsta podataka Dugo za čitanje/pisanje.

izraz.BackColor

Obavezan je izraz. Izraz koji vraća jedan od objekata s popisa 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 s desne strane okvira svojstava na listu svojstava kliknete gumb Sastavi. Uz pomoć sastavljača boja možete postaviti prilagođenu pozadinsku boju za kontrole ili odjeljke.

To svojstvo možete postaviti i pomoću lista svojstava kontrole ili odjeljka, makronaredbe ili koda programa Visual Basic for Applications (VBA) odnosno pomoću naredbe Boja ispune u odjeljku Font (na kartici Dizajn ili Oblikovanje, ovisno o tome nalazite li se u prikazu dizajna ili izgleda).

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 zadanog stila kontrole ili 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
Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×