Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

listviewi isteğe göre renklendirme

orcunerkek54
orcunerkek54
Access Cevaplanmış Soruları
5
3841

listviewi isteğe göre renklendirme

Çözüldü #1
orcunerkek54
Üye
orcunerkek54
Bul
Üye
Adı Soyadı:
Yaşı: 48
Konum: İstanbul
Ofis Versiyonu: Ofis 2003
Son Oturumu: 08/10/2016,14:12
Yorumları: 18
Konuları: 5
Kayıt Tarihi: 03/05/2009
Teşekkür Puanı: 0
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
maytas
Uzman
maytas
Bul
Uzman
Adı Soyadı:
Yaşı: 59
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 20/09/2022,13:21
Yorumları: 540
Konuları: 24
Kayıt Tarihi: 21/12/2008
Teşekkür Puanı: 178
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
orcunerkek54
Üye
orcunerkek54
Bul
Üye
Adı Soyadı:
Yaşı: 48
Konum: İstanbul
Ofis Versiyonu: Ofis 2003
Son Oturumu: 08/10/2016,14:12
Yorumları: 18
Konuları: 5
Kayıt Tarihi: 03/05/2009
Teşekkür Puanı: 0
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
benremix
Onursal Üye
benremix
www Bul
Onursal Üye
Adı Soyadı: Ra.... So....
Yaşı: 57
Konum: Ankara
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 03/12/2024,20:42
Yorumları: 4.446
Konuları: 127
Kayıt Tarihi: 17/05/2009
Teşekkür Puanı: 365
Mesleğiniz: Şirket Sahibi
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
Bilgisayarcı
Atçalı
Bilgisayarcı
Bul
Aktif Üye
Adı Soyadı:
Konum: Antalya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 22/04/2019,15:45
Yorumları: 658
Konuları: 34
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 410
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
orcunerkek54
Üye
orcunerkek54
Bul
Üye
Adı Soyadı:
Yaşı: 48
Konum: İstanbul
Ofis Versiyonu: Ofis 2003
Son Oturumu: 08/10/2016,14:12
Yorumları: 18
Konuları: 5
Kayıt Tarihi: 03/05/2009
Teşekkür Puanı: 0
ö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