OptionGroup.BorderColor 属性 (Access)

使用 BorderColor 属性可以指定控件边框的颜色。 读/写 Long。

语法

表达式。BorderColor

表达 一个代表 OptionGroup 对象的变量。

备注

BorderColor 属性设置是一个数值表达式，它对应于要用于控件边框的颜色。

可以使用控件的默认控件样式或 Visual Basic 中的 DefaultControl 属性设置此属性的默认值。

只有在其 特殊效果 属性设为平直或阴影时，控件的边框颜色是可见的。 如果 特殊效果 属性设置为平直或阴影， 边框颜色 设置更改 特殊效果 属性设置为平面。

示例

以下示例根据 txtPastDue 文本框的值，使用 RGB 函数来设置 BorderColor、BackColor 和 ForeColor 属性。 你也可以使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。