全部显示

BorderColor 属性

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

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

设置

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

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

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

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

说明

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

示例

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