Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Получает или задает цвет интерьера указанного объекта. Для чтения и записи, Long.
Синтаксис
выражение. BackColor
выражение Переменная, представляющая объект FormatCondition .
Примечания
Свойство BackColor содержит числовое выражение, соответствующее цвету, используемому для заливки внутренней части элемента управления или раздела.
Значение по умолчанию для этого свойства можно задать с помощью стиля элемента управления по умолчанию или свойства DefaultControl в Visual Basic.
Чтобы использовать свойство 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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.