BackColor 属性

适用对象

BoundObjectFrame 对象

ObjectFrame 对象

ComboBox 对象

OptionGroup 对象

FormatCondition 对象

Rectangle 对象

Image 对象

Section 对象

Label 对象

TextBox 对象

ListBox 对象

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

表达式.BackColor

表达式是必需的。返回“适用对象”列表中某个对象的表达式。

设置

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

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

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

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

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

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

备注

若要使用 BackColor 属性,必须将 BackStyle 属性(如果可用)设置为“Normal”。

示例

以下示例使用“RGB”函数设置 BorderColorBackColorForeColor 属性,具体取决于 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
扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×