Listview sütun renklendirme

[sirkülasyon]

Lisview1 Sütun Başlığı
.ColumnHeaders.Add , , "Yeni Kadro", 69
.ColumnHeaders.Add , , "Yeni Derece", 69
.ColumnHeaders.Add , , "Yeni Kademe", 69
Olan sütunların satırlarındaki yazı tiplerini kırmızı yapmak istiyorum. Yardımcı olabilir misiniz?

 

[Zeki Gürsoy]

Dim itm As ListItem, subItm As ListSubItem


With ListView1
    .View = lvwReport

    .ColumnHeaders.Add , , "Yeni Kadro", 69
    .ColumnHeaders.Add , , "Yeni Derece", 69
    .ColumnHeaders.Add , , "Yeni Kademe", 69

    '1. kolon (Yeni Kadro)
    Set itm = .ListItems.Add(, , "Zeki")
    itm.ForeColor = ColorConstants.vbRed

    '2. kolon (Yeni Derece)
    Set subItm = itm.ListSubItems.Add(, , "Gürsoy")
    subItm.ForeColor = ColorConstants.vbBlue

    '3. kolon (Yeni Kademe)
    Set subItm = itm.ListSubItems.Add(, , "Excel")
    subItm.ForeColor = ColorConstants.vbGreen

End With

Ya da;

Dim itm As ListItem, subItm As ListSubItem


With ListView1
    .View = lvwReport
 
    .ColumnHeaders.Add , , "Yeni Kadro", 69
    .ColumnHeaders.Add , , "Yeni Derece", 69
    .ColumnHeaders.Add , , "Yeni Kademe", 69
 
    '1. kolon (Yeni Kadro)
    Set itm = .ListItems.Add(, , "Zeki")
    itm.ForeColor = ColorConstants.vbRed
 
    '2. kolon (Yeni Derece)
    itm.ListSubItems.Add(, , "Gürsoy").ForeColor = ColorConstants.vbBlue
 
    '3. kolon (Yeni Kademe)
    itm.ListSubItems.Add(, , "Excel").ForeColor = ColorConstants.vbGreen
 
End With

.

 

[sirkülasyon]

Zeki abi Çok Teşekkür ederim. Allah razı olsun. Selam ve Dua ile

 

[Zeki Gürsoy]

Dünyaya benden üç yıl önce gelmişsin. Estağfurullah diyerek saygılar sunarım...

.