全部显示

ForeColor 属性

       

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

expression.ForeColor

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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

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

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 函数来设置 BorderColorBackColorForeColor 属性。也可以使用 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