VB ListViewである行にカラー設定したい (ID:122034)

名前

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

本文 ここでは問題が見えないから、コーディングを付くって、何か問題があれば、調べて下さい。 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