Skip to main content

AccessTr.neT


listviewi isteğe göre renklendirme

orcunerkek54
orcunerkek54
5
3801

listviewi isteğe göre renklendirme

Çözüldü #1
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.
.rar listview renklendirme.rar (Dosya Boyutu: 17,06 KB | İndirme Sayısı: 58)
Cevapla
Çözüldü #2
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

Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
Çözüldü #3
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

Cevapla
Çözüldü #4
Katkı ve paylaşımlarınız için emeği geçenlere teşekkürler. saygılar..
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
Çözüldü #5
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
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
Çözüldü #6
örneklerin hepsini inceledim. ancak kendime uyarlayamamıştım kodlar karışık gelmişti.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task