获取或设置指定对象的内部颜色。 可读写的 Long。
语法
表达式。BackColor
表达 一个代表 TextBox 对象的变量。
备注
BackColor 属性包含一个数值表达式,该表达式与用于填充控件或节内部的颜色相对应。
可以使用控件的默认控件样式或 Visual Basic 中的 DefaultControl 属性设置此属性的默认值。
若要使用 背景色 属性, BackStyle 属性,如果可用,必须设置为普通。
示例
以下示例根据 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
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。