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 |
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