Access VBA教程:BackColor属性

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

expression.BackColor

expression   必需。返回“Applies To”列表中的一个对象的表达式。

设置

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

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

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

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

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

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

说明

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

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教程:AutoTab属性 下页:Access VBA教程:BackStyle属性

Access VBA教程:BackColor属性

Access VBA教程:BackStyle属性 Access VBA教程:BaseConnectionString属性
Access VBA教程:BatchUpdates属性 Access VBA教程:BeforeBeginTransaction属性
Access VBA教程:BeforeCommitTransaction属性 Access VBA教程:BeforeDelConfirm属性
Access VBA教程:BeforeInsert属性 Access VBA教程:BeforeQuery属性
Access VBA教程:BeforeRender属性 Access VBA教程:BeforeScreenTip属性
Access VBA教程:BeforeUpdate属性 Access VBA教程:BeginBatchEdit属性
Access VBA教程:Bookmark属性 Access VBA教程:BorderColor属性
Access VBA教程:BorderStyle属性 Access VBA教程:BorderWidth属性
Access VBA教程:BottomMargin属性 Access VBA教程:BoundColumn属性
Access VBA教程:BrokenReference属性 Access VBA教程:Build属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号