リスとビューサブアイテム文字の色変更

解決

らいと 2005-05-09 20:21:48 No: 89719 IP: [192.*.*.*]

リストビューサブアイテムのForeColorを変更するにはどうしたらよい
でしょう。アイテムの色は以下のように変更できています。
VB6.0

Dim obItem As ListItem
Set obItem = ListView1.SelectedItem()
obItem.ForeColor = vbBlue

教えて下さい。

編集削除

魔界の仮面弁士 2005-05-10 00:19:57 No: 89720 IP: [192.*.*.*]

先頭列の色は、提示されたコードの通り、『ListItem』経由で
  ListView1.ListItems( ? ).ForeColor = vbRed
のようにして変わりますよね。

で、2列目以降に関しては、
  ListView1.ListItems( ? ).SubItems( ? ) = "サブアイテム"
で指定できる SubItems プロパティは使いません。

この場合は、
  ListView1.ListItems( ? ).ListSubItems( ? ).Text = "サブアイテム"
を利用して指定できる『ListSubItem』経由にて、
  ListView1.ListItems( ? ).ListSubItems( ? ).ForeColor = vbGreen
のようにして色を変更する事になります。

編集削除

らいと 2005-05-10 02:39:46 No: 89721 IP: [192.*.*.*]

魔界の仮面弁士さま有難う御座います。

>ListView1.ListItems( ? ).SubItems( ? ) = "サブアイテム"
こんな感じで色々やっていたんですが出来ませんでした。

>ListView1.ListItems( ? ).ListSubItems( ? ).ForeColor = vbGreen
こちらで出来ました。

有難う御座います。

編集削除