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

解決

ＭＢ＿ＶＢ 2004-06-17 19:14:17 No: 113984

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

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&

特攻隊長まるるう 2004-06-17 19:52:22 No: 113985

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

特攻隊長まるるう 2004-06-17 20:26:04 No: 113986

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

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

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

ＭＢ＿ＶＢ 2004-06-18 00:25:25 No: 113987

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