Access (的 FormatCondition.ForeColor 屬性)

使用 ForeColor 屬性可指定控制項中文字的色彩。 讀取/寫入的 Long。

語法

運算式。ForeColor

表達 代表 FormatCondition 物件的 變數。

註解

針對表單或報表上的控制項使用這個屬性，可讓它們易於閱讀或傳達特殊意義。 例如，當 UnitsInStock 控制項的值低於重新排序層級時，您可以變更其文字的色彩。

您也可以在報表上使用此屬性進行色彩印表機列印時建立特殊視覺效果。 在報表上時，這個屬性會指定 列印 、 線條 和 Circle 方法列印和繪圖色彩。

ForeColor 屬性包含一個數值運算式，代表控制項中之文字色彩的值。

使用色彩產生器，藉由選擇屬性工作表中屬性方塊右側的 [ 建 置] 按鈕來設定此屬性。 使用色彩建立器可讓您在控制項中定義文字的自訂色彩。

您可以使用控制項的預設控制項樣式或 Visual Basic 中的 DefaultControl 屬性來設定這個屬性的預設值。

對於報表，您可以僅使用巨集或 Visual Basic 事件程序中區段的 OnPrint 事件屬性設定所指定設定 Circle 屬性。

範例

下列範例會根據 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。