Властивість BackColor

Стосується

За допомогою властивості BackColor можна вказати колір внутрішньої частини елемент керування або розділ. Довге ціле число (читання й записування).

вираз.BackColor

expression — обов’язковий аргумент. Вираз, який повертає один з об'єктів у списку "Застосовується до".

Параметр

Властивість BackColor містить числовий вираз, що відповідає кольору заливки елемента керування або розділу.

За допомогою побудовника кольорів можна встановити цю властивість, натиснувши кнопку Побудувати праворуч від поля властивості в вікно властивостей. За допомогою побудовника кольорів можна визначити спеціальні кольори спини для елементів керування або розділів.

Цю властивість також можна встановити, використовуючи вікно властивостей елемента керування або розділу, макрос або код Visual Basic for Applications (VBA). Крім того, ви можете скористатися командою Колір заливки в розділі Шрифт (на вкладці Конструктор (режим конструктора) або Формат (режим розмітки).

У коді Visual Basic for Applications (VBA) установіть цю властивість за допомогою числового виразу. Значення цієї властивості має тип даних Довге ціле число.

Стандартне значення цієї властивості можна задати, використовуючи стандартний стиль елементів керування елемента керування або властивість DefaultControl у коді VBA.

Для об’єктів Table цю властивість можна встановити за допомогою команди Колір заливки в групі Шрифт на вкладці Дані або властивості DatasheetBackColor коду VBA.

Зауваження

Щоб використовувати властивість 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