VB ListViewである行にカラー設定したい

解決

ちこ 2005-05-30 20:05:44 No: 122031

VB6.0  ListViewである特定の行のセル文字にカラーを付けたいのですが、、、
Dim Item As ListItem
    Set Item = List.ListViewItems.Add()
    Item.Text = "セル１の文字"
    Item.SubItems(1) = "セル２の文字"
    Item.SubItems(2) = "セル３の文字"
上記の"セル１の文字"〜"セル３の文字"までの１行のForeColorに設定するにはどのようにしたらいいでしょうか？
お願いします。

龍 2005-05-30 21:38:48 No: 122032

>>Item.Text = "セル１の文字"
Item.ForeColor = &HFF0000

>>Item.SubItems(1) = "セル２の文字"
Item.ListSubItems.Item(1).ForeColor = &HFF&

>>Item.SubItems(2) = "セル３の文字"
Item.ListSubItems.Item(2).ForeColor = &HFF&

以上に参照してください

ちこ 2005-05-30 22:38:25 No: 122033

有難うございます。
試した結果、"セル１の文字"のセルだけしかカラー変更されません。
別にエラーになる訳では無いので、順序の問題とかあるのでしょうか？

龍 2005-05-30 23:29:13 No: 122034

ここでは問題が見えないから、コーディングを付くって、何か問題があれば、調べて下さい。

Private Sub Form_Load()

   Dim clmX As ColumnHeader
   Dim itmX As ListItem
   Dim i As Integer

   For i = 1 To 3
      Set clmX = ListView1.ColumnHeaders.Add()
      clmX.Text = "Col" & i
   Next i

   ' リストに 10 個の要素を追加します。アイコンはすべて同じです。

   ListView1.View = lvwReport

   For i = 1 To 3
      Set itmX = ListView1.ListItems.Add()
      itmX.Text = "セル１の文字 "
      itmX.ForeColor = &HFF&
      itmX.SubItems(1) = "セル２の文字"
      itmX.ListSubItems.Item(1).ForeColor = &HFF000F
      itmX.SubItems(2) = "セル３の文字"
      itmX.ListSubItems.Item(2).ForeColor = &HFF00FF
   Next i
End Sub

ちこ 2005-05-31 01:45:12 No: 122035

有難うございます。
無事に、カラー設定ができました。