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

解決


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

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


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

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

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

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

以上に参照してください


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

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


  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 = "セル1の文字 "
      itmX.ForeColor = &HFF&
      itmX.SubItems(1) = "セル2の文字"
      itmX.ListSubItems.Item(1).ForeColor = &HFF000F
      itmX.SubItems(2) = "セル3の文字"
      itmX.ListSubItems.Item(2).ForeColor = &HFF00FF
   Next i
End Sub


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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加