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.
Merhaba.
Alttaki kodları örneğin bir CommandButton'ın Click olayına atayın:
Kod:
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
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
Kod:
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
Katkı ve paylaşımlarınız için emeği geçenlere teşekkürler. saygılar..
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
Forumda ufak bi taramayla listview hakkında en az 4 tane örnek çıkacaktır karşınıza...
Bir ikisini ben yazdım ordan biliyorum
örneklerin hepsini inceledim. ancak kendime uyarlayamamıştım kodlar karışık gelmişti.