Atribuut BackColor (Taustvärv)

Rakenduskoht

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 loendi Rakenduskoht objekti.

Säte

Atribuut BackColor sisaldab arvuline avaldis, mis vastab juhtelemendi või jaotise sisemuse täitmiseks kasutatavale vä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