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

解決

ほり 2001-07-20 12:54:38 No: 74678

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

Say 2001-07-21 00:59:10 No: 74679

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

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 10:27:29 No: 74680

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