tüm uğraşlarıma rağmen hala beceremedim.
eklediğim örneğe göre tüm satırı "iade" ise kırmızı renk, "defolu" ise mavi renk olacak şekilde yapabilirmisiniz.
tüm arkadaşlara teşekkürler.
![Çözüldü](images/icons/cozuldu.png)
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(2) = "İade" Then
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbRed
ElseIf ListView1.ListItems(i).SubItems(2) = "Defolu" Then
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbBlue
End If
Next
ListView1.Refresh
Private Sub Komut2_Click()
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(2) = "İade" Then 'koşul satırı
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbRed '3. sıra
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbRed '2. sıra
ListView1.ListItems(i).ForeColor = vbRed 'ilk sıra
ElseIf ListView1.ListItems(i).SubItems(2) = "Defolu" Then
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbBlue '3. sıra
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbBlue '2. sıra
ListView1.ListItems(i).ForeColor = vbBlue 'ilk sıra
End If
Next
ListView1.Refresh
End Sub
Alıntı:yardımınız için çok teşekkürler. kodlar çalıştı. diğer satırlarıda kapsayacak şekilde kodları devam etiirdim. belki benim gibi bilmeyen arkadaşlara lazım olabilir. yeterli örnek bulması çok zor. syn maytasa tekrar teşekkürler