Свойство «Цвет фона (BackColor)»

Применение

С помощью свойства BackColor можно указать цвет внутренней части элемент управления или раздел. Возвращает доступное для чтения и записи значение типа Long.

выражение.BackColor

Выражение Обязательный. Выражение, возвращающее один из объектов в списке Применяется к.

Значения

Свойство BackColor содержит числовое выражение, соответствующее цвету, который используется для фона элемента управления или раздела.

Чтобы задать это свойство, можно использовать построитель цветов, нажав кнопку Сборка справа от поля свойства в Окно свойств. С помощью построителя цветов можно определить настраиваемые цвета обратной стороны для элементов управления или разделов.

Это свойство также можно задать с помощью Окно свойств элемента управления или раздела, кода макрос или Visual Basic для приложений (VBA) или с помощью команды Заливка цвет в разделе Шрифт (на вкладке Конструктор или Формат в зависимости от того, находитесь ли вы в режиме конструктора или макета).

В Visual Basic для приложений (VBA) для настройки этого свойства используйте числовое выражение. Этот параметр имеет тип данных Long.

Значение по умолчанию для этого свойства можно задать с помощью стиль элемента управления по умолчанию элемента управления или свойства DefaultControl в коде VBA.

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

Замечания

Чтобы использовать свойство BackColor, необходимо задать для свойства BackStyle (Тип фона), если оно доступно, значение Normal (Обычный).

Пример

В следующем примере с помощью функции 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