"BackColor/背景色" プロパティ

適用対象

BackColor プロパティを使用し、コントロールまたはセクションの内部の色を指定できます。 Long 型の値の取得および設定が可能です。

expression.BackColor

expression 必ず指定します。 [適用先] リスト内のいずれかのオブジェクトを返す式。

設定

BackColor には、コントロールまたはセクションの内部を塗りつぶす色に相当する数値式が含まれています。

Color Builder を使用して、このプロパティを設定するには、 プロパティ シートのプロパティ ボックスの右側にある [ビルド ] ボタンをクリックします。 カラー ビルダーを使用すると、コントロールまたはセクションのカスタム バック カラーを定義できます。

このプロパティは、コントロールまたはセクションのプロパティ シート、マクロ、Visual Basic for Applications (VBA) コードを使用する方法でも設定できます。あるいは、[フォント] の下にある [塗りつぶしの色] コマンドでも設定できます (デザイン ビューのときは [デザイン] タブで、レイアウト ビューのときは [書式設定] タブで選択します)。

Visual Basic for Applications (VBA) コードで、数値式を使用してこのプロパティを設定します。 このプロパティのデータ型は Long です。

コントロールの既定のコントロール スタイルまたは VBA コードの DefaultControl プロパティを使用して、このプロパティの既定値を設定できます。

[テーブル] オブジェクトの場合、[データ] タブの [フォント] の下にある [塗りつぶしの色] コマンドを使用してこのプロパティを設定できます。あるいは、VBA コードで DatasheetBackColor プロパティを使用します。

解説

BackColor プロパティを使用するには、BackStyle プロパティが利用できる場合、それを [標準] に設定する必要があります。

例

次の例では、RGB 関数を使用し、txtPastDue テキスト ボックスの値に基づいて 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