コンボボックスの前景色と背景色を設定する
 サンプルでは、コンボボックスに指定された値によって、
前景色と背景色を設定しています。

 前景色は「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」以外の場合は、
前景色が「青」で背景色が「白」で表示されます。

Access97/2000



戻る


Excel Word Access VBA! モーグ