全部显示

可以使用 ForeColor 属性指定一个控件的文本颜色。Long 型，可读/写。

expression.ForeColor

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

对窗体或报表中的控件使用该属性，可以使得它们更易于读取，或者传递某种特殊的含义。例如，“库存量”控件的值降低到重新订货的水平线以下时，可以更改“库存量”控件上的文本颜色。

在使用彩色打印机进行打印时，可以在报表上使用此属性来创建特殊的视觉效果。用于报表时，此属性指定 Print、Line 和 Circle 方法的打印及绘制颜色。

ForeColor 属性包含一个代表控件中文本颜色的值的数值表达式。

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

对于控件，可以使用在“格式（窗体/报表）”工具栏上的“字体/前景色”按钮、控件属性表、宏或 Visual Basic 来设置此属性。

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

对于报表，只能使用宏或 Visual Basic 事件过程设置 ForeColor 属性，该宏或事件过程是在某一节的 OnPrint 事件属性设置中指定的。

对于 Table 对象，可以使用在“格式（数据表）”工具栏上的“字体/前景色”按钮来设置此属性，或在 Visual Basic 中使用 DatasheetForeColor 属性设置。

对于包含超链接的文本框、组合框、标签或命令按钮，Microsoft Access 自动将 ForeColor 属性设置为“Web 选项”对话框（在“工具”菜单中单击“选项”命令，然后在“常规”选项卡中单击“Web 选项”按钮）的“超链接/HTML”选项卡的“超链接的颜色”或“访问过的超链接的颜色”框指定的颜色。如果从控件中删除了超链接（例如，将绑定文本框的 ControlSource 属性改为非 Hyperlink 字段的来源)，Microsoft Access 会将 ForeColor 属性设置返回默认的控件样式。对于命令按钮，ForeColor 属性的设置只在命令按钮中含有标题时有效，对图像无效。

示例

以下示例根据 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