(Access TextBox.ForeColor 屬性)

您可以使用 ForeColor 屬性指定控制項文字的色彩。 可讀寫的 Long

語法

運算式ForeColor

運算式 代表 TextBox 物件的變數。

註解

您可以使用表單或報表中控制項的該屬性,讓控制項更易於讀取或傳遞特殊的意義。 例如,您可以變更 UnitsInStock 控制項中的文字時,其值低於重新排序層級的色彩。

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

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

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

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

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

範例

下列範例會根據 txtPastDue 文字方塊的值,使用 RGB 函數以設定 BorderColorBackColorForeColor 屬性。 您也可以使用 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 支援與意見反應