コンボボックスの背景色を一定にするには (ID:74679)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 あんまりうつくしくないのですが・・・ 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 これでいやならサブクラス化するしか ないような気がする。