ComboBox.ForeColor 屬性 (存取)

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

語法

表達。前色

詞 代表 ComboBox 物件的變數。

註解

將此屬性用於表單或報表的控制項，使其易於閱讀或傳達特殊意義。 例如，當文字值低於重新排序層級時，您可以變更 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 支援與意見反應。