BackColor 属性

expandtri全部显示

使用 BackColor 属性可以指定某个控件内部的颜色。Long 型,可读写。

expression.BackColor

expression     必需。返回“应用于”列表中的一个对象的表达式。

设置

BackColor 属性包括数值表达式,该表达式对应于填充控件或节内部的颜色。

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

使用“格式(窗体/报表)工具栏上的“填充/背景色”、控件或节的属性表Visual Basic,也可以设置该属性。

在 Visual Basic 中,可以使用数值表达式来设置该属性。该属性设置为 Long 数据类型。

使用控件的默认控件样式或在 Visual Basic 中使用 DefaultControl 方法,可以设置该属性的默认值。

要设置“表”对象的此属性,可以使用“格式(数据表)”工具栏上的“填充/背景色”,或在 Visual Basic 中使用 DatasheetBackColor 属性。

说明

若要使用 BackColor 属性,当 BackStyle 属性可用时,必须将其属性值设为“常规”。

示例

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