リストビューのアイテムに色を付けたい

解決

---

追加した項目に色を付けたい
以下の例だと１つ目の項目しか色が付きません
３つ目の項目にも色を付けたい
どうすればいいでしょうか
どなたか教えて下さい。  お願い致します。

Set lidX = YSFMC017.ListView1.ListItems.Add(, nkey, Trim(M_ojDynaSet2.Fields("項目１").Value))
lidX.SubItems(2) = M_ojDynaSet2.Fields("項目２").Value
lidX.SubItems(2) = M_ojDynaSet2.Fields("項目３").Value
lidX.ForeColor = &HFF&

編集    削除

---

[VB6.0]
lidX.ListSubItems(2).ForeColor = &HFF&

編集    削除

---

このプロパティは見つけにくいですよね。
リストビューを使ってきたことのある人なら
SubItems に設定できそうという予想は立つ
でしょうが、SubItems と ListSubItems
という２つのプロパティがあって ForeColor
の設定は ListSubItems でしかできません。

見つけるコツはオブジェクトブラウザです。
ForeColor で検索、設定できるオブジェクトの
一覧を出せば自力で見つけるのも案外簡単です。

…ヘルプで全てのプロパティを確認しても
可能でしょうが…

編集    削除

---

特攻隊長まるるう さん  ありがとうございます。
無事  解決できました。
回答だけでなく  アドバイスまで頂きありがとうございます。
助かります！！

編集    削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。