ForeColor 屬性

全部顯示

可以使用 ForeColor 屬性指定一個控件的文本顏色。Long 型，可讀/寫。

expression.ForeColor

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

說明

對窗體或報表中的控件使用該屬性，可以使得它們更易于讀取，或者傳遞某種特殊的含義。例如，“庫存量”控件的值降低到重新訂貨的水平線以下時，可以更改“庫存量”控件上的文本顏色。

在使用彩色打印機進行打印時，可以在報表上使用此屬性來創(chuàng)建特殊的視覺效果。用于報表時，此屬性指定 Print、Line 和 Circle 方法的打印及繪制顏色。

ForeColor 屬性包含一個代表控件中文本顏色的值的數(shù)值表達式。

通過單擊在屬性表屬性框右側(cè)的“生成器”按鈕，可以使用“顏色生成器”對話框來設(shè)置此屬性。使用“顏色”對話框還可以自定義控件中文本的顏色。

對于控件，可以使用在“格式（窗體/報表）”工具欄上的“字體/前景色”按鈕、控件屬性表、宏或 Visual Basic 來設(shè)置此屬性。

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

對于報表，只能使用宏或 Visual Basic 事件過程設(shè)置 ForeColor 屬性，該宏或事件過程是在某一節(jié)的 OnPrint 事件屬性設(shè)置中指定的。

對于 Table 對象，可以使用在“格式（數(shù)據(jù)表）”工具欄上的“字體/前景色”按鈕來設(shè)置此屬性，或在 Visual Basic 中使用 DatasheetForeColor 屬性設(shè)置。

對于包含超鏈接的文本框、組合框、標(biāo)簽或命令按鈕，Microsoft Access 自動將 ForeColor 屬性設(shè)置為“Web 選項”對話框（在“工具”菜單中單擊“選項”命令，然后在“常規(guī)”選項卡中單擊“Web 選項”按鈕）的“超鏈接/HTML”選項卡的“超鏈接的顏色”或“訪問過的超鏈接的顏色”框指定的顏色。如果從控件中刪除了超鏈接（例如，將綁定文本框的 ControlSource 屬性改為非 Hyperlink 字段的來源)，Microsoft Access 會將 ForeColor 屬性設(shè)置返回默認的控件樣式。對于命令按鈕，ForeColor 屬性的設(shè)置只在命令按鈕中含有標(biāo)題時有效，對圖像無效。

示例

以下示例根據(jù) txtPastDue 文本框的值，使用 RGB 函數(shù)來設(shè)置 BorderColor、BackColor 和 ForeColor 屬性。也可以使用 QBColor 函數(shù)來設(shè)置這些屬性。只要用戶打開窗體或移動到新記錄，則將下列代碼放在 Form_Current( ) 事件中以設(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