Ypatybė BackColor

Taikoma

Ypatybę BackColor galite naudoti norėdami nustatyti valdiklis arba skyrius interjero spalvą. Skaityti/rašyti Long.

reiškinys.BackColor

reiškinys Būtina. Reiškinys, kuris pateikia vieną iš sąrašo „Taikoma“ objektų.

Parametras

Ypatybė BackColor yra skaitinis reiškinys, atitinkanti spalvą, naudojamą valdiklio arba sekcijos interjerui pripildyti.

Norėdami nustatyti šią ypatybę, galite naudoti spalvų daryklę spustelėdami mygtuką kurti , esantį ypatybės lapas ypatybės lauko dešinėje. Naudodami spalvų daryklę, galite nustatyti valdiklių arba sekcijų pasirinktinę spalvų atsargines spalvas.

Šią ypatybę taip pat galite nustatyti naudodami valdiklio arba sekcijos ypatybės lapas, makrokomanda arba "Visual Basic for Applications" (VBA) kodą arba naudodami komandą užpildymo spalva , esančią dalyje šriftas (skirtuke dizainas arba formatas ), atsižvelgdami į tai, ar esate dizaino rodinyje arba maketo rodinyje.

Norėdami nustatyti šią ypatybę, „Visual Basic for Applications“ (VBA) kode naudokite skaitinį reiškinį. Šios ypatybės parametro duomenų tipas yra Long.

Galite nustatyti šios ypatybės numatytuosius reikšmę naudodami valdiklio numatytasis valdiklio stilius arba ypatybę DEFAULTCONTROL VBA kode.

Objektams Table šią ypatybę galite nustatyti naudodami komandą Užpildo spalva dalyje Šriftas skirtuke Duomenys arba VBA kode naudodami ypatybę DatasheetBackColor.

Pastabos

Norint naudoti ypatybę BackColor, ypatybė BackStyle, jei ji yra, turi būti nustatyta kaip Normal.

Pavyzdys

Toliau pateiktame pavyzdyje funkcija RGB naudojama nustatyti ypatybes BorderColor, BackColor ir ForeColor, atsižvelgiant į teksto lauko txtPastDue reikšmę. Norėdami nustatyti šias ypatybes taip pat galite naudoti funkciją QBColor. Įdėjus šį kodą į įvykį Form_Current( ), valdiklio rodymo charakteristikos nustatomos iškart, kai vartotojas atidaro formą arba pereina į naują įrašą.

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