Ypatybė BackColor

Taikoma

Ypatybę BackColor galite naudoti norėdami nurodyti valdiklis arba skyrius vidinę 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ėje BackColor yra skaitinis reiškinys, atitinkanti spalvą, naudojamą valdiklio arba sekcijos vidinei spalvai užpildyti.

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 apibrėžti pasirinktines valdiklių arba sekcijų atgalinių spalvų 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žpildo spalva dalyje Šriftas (skirtuke Dizainas arba Formatas , atsižvelgiant į tai, ar esate dizaino rodinyje, ar 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 numatytąją šios ypatybės reikšmę vba kode naudodami valdiklio numatytasis valdiklio stilius arba ypatybę DefaultControl .

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