Atribuut BackColor (Taustavärv)

Rakenduskoht

Objekt BoundObjectFrame

Objekt ObjectFrame

Objekt ComboBox

Objekt OptionGroup

Objekt FormatCondition

Objekt Rectangle

Objekt Image

Objekt Selection

Objekt Label

Objekt TextBox

Objekt ListBox

Atribuuti BackColor saate kasutada juhtelement või jaotis sisemuse värvi määramiseks. Loetav/kirjutatav pikk täisarv.

avaldis.BackColor

avaldis (nõutav). Avaldis, mis tagastab mõne objekti, mis on loendis Rakenduskoht.

Säte

Atribuut BackColor sisaldab arvulist avaldist, mis vastab juhtelemendi või jaotise sisemuse täitevärvile.

Atribuudi määramiseks saate kasutada värvikoosturit, klõpsates atribuudilehtel atribuudiväljast paremal nuppu Koostur. Värvikoosturi abil saate määratleda juhtelementide või jaotiste kohandatud Taustvärve.

Atribuudi määramiseks saate kasutada ka juhtelemendi või jaotise atribuudileht, makro või Visual Basic for Applicationsi (VBA) koodi või menüü Kujundus või Vorming (sõltuvalt sellest, kas aktiivne on kujundus- või küljendivaade) jaotise Font või nuppu Täitevärv.

Atribuudi määramiseks VBA-koodiga kasutage arvulist avaldist. Selle atribuudisätte andmetüüp on pikk täisarv.

Selle atribuudi vaikeväärtuse saate määrata juhtelemendi juhtelemendi vaikelaadi abil või VBA-koodis atribuudi DefaultControl abil.

Objektide Table puhul saate selle atribuudi määrata käsuga Täitevärv (klõpsake vahekaardil Andmed nuppu Font) või VBA-koodiga atribuudi DatasheetBackColor abil.

Kommentaarid

Atribuudi BackColor kasutamiseks peab atribuudi BackStyle(kui see on saadaval) väärtus olema Normal.

Näide.

Järgmises näites kasutatakse atribuutide BorderColor, BackColor ja ForeColorväärtuste määramiseks tekstivälja txtPastDue põhjal funktsiooni RGB. Nende atribuutide määramiseks saate kasutada ka funktsiooni QBColor. Järgmise koodi lisamisel sündmusele Form_Current( ) määratakse juhtelemendi kuvamisomadused kohe, kui kasutaja avab vormi või liigub uuele kirjele.

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
Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×