Свойство BackColor

Отнася се за

Можете да използвате свойството BackColor, за да зададете цвета на вътрешната част на контрола или секция; раздел. Long за четене/запис.

израз.BackColor

израз Задължително. Израз, който връща един от обектите в списъка "Отнася се за".

Настройка

Свойството BackColor съдържа числов израз, който отговаря на цвета, използван за запълване на вътрешната част на контрола или секция.

Можете да използвате конструктора на цветове, за да зададете това свойство, като щракнете върху бутона Изграждане вдясно от полето на свойството в списък със свойства. Използването на конструктора на цветове ви позволява да дефинирате цветове по избор за заден екран за контроли или секции.

Можете също да зададете това свойство с помощта на списък със свойства на контрола или секция, код на макрос или Visual Basic for Applications (VBA) или с помощта на командата Цвят на запълване под Шрифт (в раздела Проектиране или Формат в зависимост от това дали сте в изглед за проектиране, или в изглед на оформление).

В кода на Visual Basic for Applications (VBA) използвайте числов израз, за да зададете това свойство. Тази настройка на свойство има тип на данните Long.

Можете да зададете за това свойство стойността по подразбиране, като използвате стил на контрола по подразбиране за контролата или свойството DefaultControl във VBA код.

За обектите Table можете да зададете това свойство, като използвате командата Цвят на запълване под Шрифт в раздела Данни, или във VBA кода, като използвате свойството DatasheetBackColor.

Забележки

За да използвате свойството BackColor, свойството BackStyle, ако е налично, трябва да бъде зададено на Нормален.

Пример

Следващият пример използва функцията RGB за задаване на свойствата BorderColor, BackColor и ForeColor в зависимост от стойността на текстовото поле txtPastDue. Можете също да използвате функцията QBColor, за да зададете следните свойства. Поставянето на следния код в събитието Form_Current() задава характеристиките на управлението на показването веднага щом потребителят отвори формуляр или премие към нов запис.

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