コンボボックスの背景色を一定にするには

解決

ほり 2001-07-20 03:54:38 No: 74678 IP: [192.*.*.*]

コンボボックスにフォーカスが移動したとき背景色を変更するようにし、フォーカス喪失で更に背景色を変更するようなプログラム作成してますが、取得時に確かにテキスト入力部は変わりますが、展開されたリスト部が最初は目的の色になりません。再度クリックすると期待した色になります。どうすればよいかどなたかアドバイスをよろしく

編集削除

Say 2001-07-20 15:59:10 No: 74679 IP: [192.*.*.*]

あんまりうつくしくないのですが・・・

Private Sub Combo1_GotFocus()
    Dim i As Long
    Combo1.BackColor = RGB(255, 150, 100)
    For i = Combo1.ListCount - 1 To 0 Step -1
        Combo1.ListIndex = i
    Next
End Sub

Private Sub Combo1_LostFocus()
    Combo1.BackColor = RGB(150, 255, 100)
End Sub

これでいやならサブクラス化するしか
ないような気がする。

編集削除

ほり 2001-07-21 01:27:29 No: 74680 IP: [192.*.*.*]

うまくいきました。ありがとうございます。

編集削除