Ypatybė BackColor

Taikoma

Objektas BoundObjectFrame

Objektas ObjectFrame

Objektas ComboBox

Objektas OptionGroup

Objektas FormatCondition

Objektas Rectangle

Objektas Image

Objektas Section

Objektas Label

Objektas TextBox

Objektas ListBox

Ypatybę BackColor galite naudoti norėdami nurodyti valdiklio arba sekcijos vidaus 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 apima skaitinį reiškinį, kuris atitinka spalvą, naudojamą užpildyti valdiklio ar sekcijos vidų.

Galite naudodami spalvų daryklę nustatyti šią ypatybę spustelėdami mygtuką Kurti ypatybių lape, į dešinę nuo ypatybių lauko. Naudodami spalvų daryklę galite apibrėžti pasirinktines valdiklių ar sekcijų fono spalvas.

Taip pat galite nustatyti šią ypatybę naudodami valdiklio ar sekcijos ypatybių lapą, makrokomandą 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, 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 šios ypatybės numatytuosius parametrus naudodami numatytąjį valdiklio stilių 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
Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×