Access VBA教程:BorderColor属性

使用 BorderColor属性可以指定控件的边框颜色。Long 型,可读写。

expression.BorderColor

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

设置

BorderColor属性设置是一个对应于控件边框颜色的数值表达式。

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

使用“格式(窗体/报表)”工具栏上的“线条/边框颜色”、Visual Basic,可以设置该属性。

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

说明

只有将SpecialEffect属性设为“平面”或“阴影”时,控件的边框颜色才可见。如果 SpecialEffect属性设置不是“平面”或“阴影”,则设置 BorderColor属性会把 SpecialEffect属性设置改为“平面”。

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

Access VBA教程:BorderColor属性

Access VBA教程:BorderStyle属性 Access VBA教程:BorderWidth属性
Access VBA教程:BottomMargin属性 Access VBA教程:BoundColumn属性
Access VBA教程:BrokenReference属性 Access VBA教程:Build属性
Access VBA教程:BuiltIn属性 Access VBA教程:Cancel属性
Access VBA教程:CanGrow属性 Access VBA教程:CanShrink属性
Access VBA教程:Caption属性 Access VBA教程:ChartSpace属性
Access VBA教程:CheckIfOfficeIsHTMLEditor属性 Access VBA教程:Class属性
Access VBA教程:CloseButton属性 Access VBA教程:CodeContextObject属性
Access VBA教程:CodeData属性 Access VBA教程:CodeProject属性
Access VBA教程:Collection属性 Access VBA教程:ColorMode属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号