Svojstvo BackColor

Odnosi se na

Objekt BoundObjectFrame

Objekt ObjectFrame

Objekt ComboBox

Objekt OptionGroup

Objekt FormatCondition

Objekt Rectangle

Objekt Image

Objekt Section

Objekt Label

Objekt TextBox

Objekt ListBox

Svojstvo BackColor možete koristiti da biste naveli boju interijera 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.

Pomoću sastavljača boja možete postaviti ovo svojstvo tako da kliknete gumb sastavi s desne strane okvira svojstva u list svojstava. Korištenje sastavljača boja omogućuje definiranje prilagođenih boja u pozadini za kontrole ili sekcije.

To svojstvo možete postaviti i pomoću list svojstava, makronaredba ili programa Visual Basic for Applications (VBA) ili pomoću naredbe Boja ispune u odjeljku Font (na kartici dizajn ili Oblikovanje , ovisno o tome jeste li u prikazu dizajna ili prikazu prikaza).

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 vrijednost za ovo svojstvo možete postaviti pomoću zadani stil kontrole 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

Potrebna vam je dodatna pomoć?

Proširite svoje vještine korištenja sustava Office
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.

×