BorderColor 屬性

全部顯示

使用 BorderColor 屬性可以指定控件的邊框顏色。Long 型，可讀寫。

expression.BorderColor

expression     必需。返回“應用于”列表中的一個對象的表達式。

設置

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