BackColor 屬性

全部顯示

使用 BackColor 屬性可以指定某個(gè)控件或節(jié)內(nèi)部的顏色。Long 型，可讀寫。

expression.BackColor

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

設(shè)置

BackColor 屬性包括數(shù)值表達(dá)式，該表達(dá)式對(duì)應(yīng)于填充控件或節(jié)內(nèi)部的顏色。

通過單擊屬性表中屬性框右側(cè)的“生成器”按鈕，可以使用“顏色生成器”來設(shè)置該屬性。使用“顏色生成器”可以為控件或節(jié)定義自定義背景顏色。

使用“格式（窗體/報(bào)表）工具欄上的“填充/背景色”、控件或節(jié)的屬性表、宏或 Visual Basic，也可以設(shè)置該屬性。

在 Visual Basic 中，可以使用數(shù)值表達(dá)式來設(shè)置該屬性。該屬性設(shè)置為 Long 數(shù)據(jù)類型。

使用控件的默認(rèn)控件樣式或在 Visual Basic 中使用 DefaultControl 方法，可以設(shè)置該屬性的默認(rèn)值。

要設(shè)置“表”對(duì)象的此屬性，可以使用“格式（數(shù)據(jù)表）”工具欄上的“填充/背景色”，或在 Visual Basic 中使用 DatasheetBackColor 屬性。

說明

若要使用 BackColor 屬性，當(dāng) BackStyle 屬性可用時(shí)，必須將其屬性值設(shè)為“常規(guī)”。

示例

以下示例根據(jù) txtPastDue 文本框的值，使用 RGB 函數(shù)來設(shè)置 BorderColor、BackColor 和 ForeColor 屬性。也可以使用 QBColor 函數(shù)來設(shè)置這些屬性。將下列代碼放在 Form_Current( ) 事件中即可設(shè)置當(dāng)用戶打開窗體或移到新記錄時(shí)的控件顯示特性。

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