ListBoxの各行を違った色で表示することは可能ですか？

Question

またまた初歩的な質問で恐縮します。

Ｌｉｓｔｂｏｘに表示する項目の種類によって、Ｆｏｒｅｃｏｌｏｒを変えようとしましたが、

どうしてもできませんでした。そもそも出来ないのでしょうか。

ご教示ください。

 

Answer 1

オーナードローをすればできますよ。

ListBox.DrawMode プロパティ について調べてみてください。
ヘルプにやりたいことにそっくりなソースが記載されています。

Answer 2

参考までですが、ListViewだと簡単にできます。

Answer 3

ありがとうございます。

お手数をおかけ致しました。早速やってみます。

 

 

Answer 4

ダッチ様

 

やってみようとしましたが、できませんでした。ownerdrawはListViewの関連だし。

ｄｒａｗｉｔｅｍのイベントを意図的に起こす方法も判りませんでしたし。

やっぱり、ＬｉｓｔＢｏｘではｆｏｒｅｃｏｌｏｒを行毎に設定することは不可能なのでしょうか。

もう少し、詳しく教えてください。お願いします。

 

 

Answer 5

項目の文字の色を変えたいListBoxをListBox1とします。

デザイン画面でListBox1を選んで
プロパティウィンドウで
DrawMode を探して OwnerDrawFixedにします

プロパティウィンドウで
イベント（雷マーク）をクリック
DrawItemを探しての右のセルをダブルクリックします

コードに自動で
ListBox1_DrawItemメソッドが生成されるのでその中に

Dim brush1 As Brush = New SolidBrush(Color.Red)
e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, brush1, e.Bounds, StringFormat.GenericDefault)

Color.Redの部分をe.Index等によって変更すれば項目によって文字色が変わります。

MSDNライブラリ
ListBox.DrawItem イベント 
にもサンプルがあります。

Answer 6

IIJIMAS さん、フォローありがとうございます。

DrawMode プロパティを OwnerDraw～ にすることでオーナードローが可能になります。
そして、オーナードローが可能になると DrawItem イベント などオーナードローに必要なイベントが発生するようになるんですよ。

あとはIIJIMAS さんの内容なヘルプをみれば出来ると思います。

ヘルプのリンク先を乗せておけばよかったですね。

Answer 7

IIJIMAS さんご教示ありがとうございます。

やっとわかりました。イベント発生のタイミングが難しいですね。

あとでまとめて、処理してくるので、ｉｔｅｍｉｎｄｅｘを操作すると変な結果になってしまいました。

でも、Dim brush1 As Brush = New SolidBrush(Color.Red)
e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, brush1, e.Bounds, StringFormat.GenericDefault)

これをやると選択項目を反転することをしなくなってしまったので、これはこれでまた新たな問題が生じて

しまいました。

 

Answer 8

窓際族 さんからの引用

あとでまとめて、処理してくるので、ｉｔｅｍｉｎｄｅｘを操作すると変な結果になってしまいました。

具体的に教えてください。

窓際族 さんからの引用

これをやると選択項目を反転することをしなくなってしまったので、これはこれでまた新たな問題が生じて しまいました。

DrawStringの前の行で

e.DrawBackground()もしてください。

 

Answer 9

自分へ。

ｄｒａｗｒｅｃｔａｎｇｌｅを使うからいけないんですね。ｄｒａｗｂａｃｋｃｏｌｏｒで十分でした。

 

とてもご親切にいろいろ教えてくださってありがとうございました。