AccessTr.neT
listviewi isteğe göre renklendirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: listviewi isteğe göre renklendirme (/konu-listviewi-istege-gore-renklendirme.html)



listviewi isteğe göre renklendirme - orcunerkek54 - 01/11/2009

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.


Cvp: listviewi isteğe göre renklendirme - maytas - 01/11/2009

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




Cvp: listviewi isteğe göre renklendirme - orcunerkek54 - 01/11/2009

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




Cvp: listviewi isteğe göre renklendirme - benremix - 01/11/2009

Katkı ve paylaşımlarınız için emeği geçenlere teşekkürler. saygılar..


Cvp: listviewi isteğe göre renklendirme - Bilgisayarcı - 02/11/2009

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 biliyorumImg-grin


Cvp: listviewi isteğe göre renklendirme - orcunerkek54 - 07/11/2009

örneklerin hepsini inceledim. ancak kendime uyarlayamamıştım kodlar karışık gelmişti.