FormatCondition.ForeColor 属性 (Access)

使用 ForeColor 属性可指定控件中文本的颜色。 读/写 Long。

语法

表达式。ForeColor

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

备注

将此属性用于窗体或报表上的控件，使其易于阅读或传达特殊含义。 例如，当 UnitsInStock 控件的值低于重新排序级别时，可以更改文本的颜色。

您可以在报表上使用此属性来创建特殊的视觉效果，使用彩色打印机进行打印时。 当使用报表上，此属性指定 打印 、 行 和 圆 方法的打印和绘图颜色。

前景色 属性包含数值表达式，表示控件中的文本颜色的值。

使用颜色生成器通过选择属性表中属性框右侧的“ 生成 ”按钮来设置此属性。 使用颜色生成器还可以定义控件中文本的自定义颜色。

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

对于报表，可以设置 圆 属性，只需通过使用宏或 Visual Basic 事件过程中节的 OnPrint 事件属性设置指定。

示例

以下示例根据 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。