HOME > 即効テクニック > AccessVBA > コーディング・デバッグ > コンボボックスの前景色と背景色を設定する

即効テクニック

コーディング・デバッグ

コンボボックスの前景色と背景色を設定する

(Access 97)
サンプルでは、コンボボックスに指定された値によって、前景色と背景色を設定しています。
前景色は「ForeColorプロパティ」、背景色は「BackColorプロパティ」を使います。
フォームにコンボボックス「コンボ0」を配置して、プロパティシートの[イベント]タブを表示します。
[クリック時]のイベントプロシージャに次の処理を記述します。

Private Sub コンボ0_Click()
    
    If コンボ0.Value = "a" Then
        Me!コンボ0.ForeColor = RGB(0, 0, 0)
        Me!コンボ0.BackColor = RGB(255, 0, 0)
    Else
        Me!コンボ0.ForeColor = RGB(0, 0, 255)
        Me!コンボ0.BackColor = RGB(255, 255, 255)
    End If

End Sub

コンボボックスのテキストボックスには、値が「a」の場合は、前景色が「黒」で背景色が「赤」、値が「a」以外の場合は、前景色が「青」で背景色が「白」で表示されます。