Access VBA教程: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属性的设置只在命令按钮中含有标题时有效,对图像无效。

VBA示例

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

上页:Access VBA教程:ForceNewPage属性 下页:Access VBA教程:Form属性

Access VBA教程:ForeColor属性

Access VBA教程:Form属性 Access VBA教程:Format属性
Access VBA教程:FormatCount属性 Access VBA教程:Format属性 -“日期/时间”数据类型
Access VBA教程:Format属性 -“数字”和“货币”数据类型 Access VBA教程:Format属性 -“文本”和“备注”数据类型
Access VBA教程:Format属性 -“是/否”数据类型 Access VBA教程:FormatConditions属性
Access VBA教程:Forms属性 Access VBA教程:FrozenColumns属性
Access VBA教程:FullName属性 Access VBA教程:FullPath属性
Access VBA教程:FuriganaControl属性 Access VBA教程:GridX属性
Access VBA教程:GridY属性 Access VBA教程:GroupFooter属性
Access VBA教程:GroupHeader属性 Access VBA教程:GroupInterval属性
Access VBA教程:GroupLevel属性 Access VBA教程:GroupOn属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号