BackColor 属性

适用于

可使用 BackColor 属性指定控件或节内部的颜色。 Long 型，可读/写。

表达式.BackColor

表达式 必需。 返回“适用范围”列表中的对象之一的表达式。

设置

BackColor 属性包含与用于填充控件或节内部的颜色相对应的数值表达式。

可通过单击属性表中属性框右侧的“生成”按钮使用“颜色生成器”来设置此属性。 “颜色生成器”使你能够为控件或节定义自定义背景色。

也可以使用控件或节的属性表、宏或 Visual Basic for Applications (VBA) 代码，或通过使用“字体”下的“填充颜色”命令（在“设计”或“格式”选项卡上，具体取决于当前是在设计视图中还是在布局视图中）来设置此属性。

在 Visual Basic for Applications (VBA) 代码中，使用数值表达式设置此属性。 此属性设置的数据类型为 Long。

可使用控件的默认控件样式或在 VBA 代码中使用 DefaultControl 属性来设置属性的默认值。

对于 Table 对象，可使用“数据”选项卡上“字体”下的“填充颜色”命令，或在 VBA 代码中使用 DatasheetBackColor 属性来设置此属性。

备注

若要使用 BackColor 属性，必须将 BackStyle 属性（如果可用）设置为“Normal”。

示例

以下示例使用“RGB”函数设置 BorderColor、BackColor 和 ForeColor 属性，具体取决于 txtPastDue 文本框的值。 也可以使用 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