Свойство TabControl.BorderColor (Access)

  • Статья

Используйте свойство BorderColor , чтобы указать цвет границы элемента управления. Для чтения и записи, Long.

Синтаксис

expression. Bordercolor

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

Замечания

Параметр свойства BorderColor — это числовое выражение, соответствующее цвету, который требуется использовать для границы элемента управления.

Вы можете задать значение по умолчанию для этого свойства, используя стиль элемента управления по умолчанию или свойство DefaultControl в Visual Basic.

Цвет границы элемента управления отображается только в том случае, если для его свойства SpecialEffect задано значение Flat или Shadowed. Если для свойства SpecialEffect задано значение, отличное от Flat или Shadowed, значение свойства BorderColor изменит значение свойства SpecialEffect на Flat.

Пример

В следующем примере функция 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 и обратная связь.