TaustanVäri-ominaisuus

Koskee seuraavia

Voit Taustaväri-ominaisuuden avulla määrittää kohteen ohjain tai osa sisäosan värin. Pitkä, jolla on luku-/kirjoitusoikeudet.

lauseke.Taustaväri

lauseke Pakollinen. Lauseke, joka palauttaa jonkin Koskee seuraavia -luettelon objekteista.

Asetus

Taustaväri-ominaisuus sisältää numeerinen lausekein. Se vastaa väriä, jota käytetään täyttämään ohjausobjektin tai osan sisäosa.

Voit lausekkeen muodostimen avulla määrittää tämän ominaisuuden napsauttamalla Muodosta-painiketta ominaisuusruudun oikealla puolella ominaisuusikkunassa. Värin muodostimen avulla voit määrittää ohjausobjektien ja osien mukautetut taustavärit.

Voit myös määrittää tämän ominaisuuden käyttämällä ohjausobjektin tai osan kohdetta ominaisuusikkuna tai makro tai Visual Basic for Applications (VBA)-koodia tai käyttämällä Täytä väri -komentoa Fontti-kohdassa (Rakenne- tai Muotoile-välilehdessä sen mukaan, oletko rakenne- vai asettelunäkymässä).

Määritä tämä ominaisuus käyttämällä Visual Basic for Applications (VBA) -koodissa numeerista lauseketta. Tämän ominaisuusasetuksen tietotyyppinä on Pitkä.

Voit määrittää tämän ominaisuuden oletusarvon käyttämällä ohjausobjektin kohdetta ohjausobjektin oletustyyli tai Oletusohjausobjekti-ominaisuutta VBA-koodissa.

Voit määrittää tämän ominaisuuden Taulukko-objekteille Tiedot-välilehden Fontti-kohdan Täytä väri -komennon tai VBA-koodin avulla käyttämällä Tietotaulukon taustaväri -ominaisuutta.

Huomautuksia

Jos haluat käyttää Taustaväri-ominaisuutta Taustan tyyli -ominaisuuden, jos se on käytettävissä, asetukseksi on määritettävä Normaali.

Esimerkki

Seuraavassa esimerkissä käytetään RGB-funktiota määrittämään Reunan väri-, Taustaväri- ja Edustan väri -ominaisuudet txtPastDue-tekstiruudun arvon mukaan. Voit myös määrittää nämä ominaisuudet QBColor-funktion avulla. Jos seuraava koodi laitetaan Form_Current () -tapahtumaan, ohjausobjektin näytön ominaisuudet määritetään heti, kun käyttäjä avaa lomakkeen tai siirtyy uuteen tietueeseen.

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