[Çözüldü]  ListView'de Tüm Satırı Şarta Bağlı Olarak Renklendirme

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

ListView'de Tüm Satırı Şarta Bağlı Olarak Renklendirme

İleti#1)  necatisimsek » 26 Ağu 2017 12:49

- Arkadaşlar merhaba;
- Bir proje üzerinde çalışıyorum, UserForm üzerinde 1 adet ListView nesnesi var ve 10. kolon doluysa tüm satırı kırmızı ile renklendirmesini istiyorum.
- Bu konu hakkında yardımlarınızı bekliyorum.

Kod: Tümünü seç
For a = 2 To Sayfa1.Range("A65536").End(3).Row
        Set Ekle = .ListItems.Add(, , Sayfa1.Cells(a, 1))
            Ekle.SubItems(1) = Sayfa1.Cells(a, 2)
            Ekle.SubItems(2) = Sayfa1.Cells(a, 3)
            Ekle.SubItems(3) = Sayfa1.Cells(a, 4)
            Ekle.SubItems(4) = Sayfa1.Cells(a, 5)
            Ekle.SubItems(5) = Sayfa1.Cells(a, 6)
            Ekle.SubItems(6) = Sayfa1.Cells(a, 7)
            Ekle.SubItems(7) = Sayfa1.Cells(a, 8)
            Ekle.SubItems(8) = Sayfa1.Cells(a, 9)
            Ekle.SubItems(9) = Sayfa1.Cells(a, 10)
            Ekle.SubItems(10) = Sayfa1.Cells(a, 11)
If Dagitim_Liste.ListItems(i).SubItems(10) <> "" Then
Dagitim_Liste.ListItems(i).ListSubItems(10).ForeColor = vbRed
Kullanıcı avatarı
necatisimsek
Yeni Başlamış
 
Kayıt: 05 Tem 2017 12:31
Meslek: Memur
Yaş: 49
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar

Cevap: ListView'de Tüm Satırı Şarta Bağlı Olarak Renklendirm

İleti#2)  Orion1 » 26 Ağu 2017 21:12

Listviewde satırı renklendiremezsinzi.Ancak fontları renklendirebilirsiniz.:cool:
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 22:51
Meslek: inşaat teknikeri
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Cevap: ListView'de Tüm Satırı Şarta Bağlı Olarak Renk

İleti#3)  necatisimsek » 26 Ağu 2017 21:23

Orion1 yazdı:Listviewde satırı renklendiremezsinzi.Ancak fontları renklendirebilirsiniz.:cool:

- Olsun o da işimi görür. :)
Kullanıcı avatarı
necatisimsek
Yeni Başlamış
 
Kayıt: 05 Tem 2017 12:31
Meslek: Memur
Yaş: 49
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar

Cevap: ListView'de Tüm Satırı Şarta Bağlı Olarak Renklendirm

İleti#4)  Orion1 » 26 Ağu 2017 22:57

Örnek dosyanızı ekleyiniz.:cool:
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 22:51
Meslek: inşaat teknikeri
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: ListView'de Tüm Satırı Şarta Bağlı Olarak Renk

İleti#5)  necatisimsek » 26 Ağu 2017 23:11

Orion1 yazdı:Örnek dosyanızı ekleyiniz.:cool:

- Örnek dosyada özel bilgiler mevcut (TC Kimlik No, Adres, İsim, Telefon Numarası vb.) yukarıda ListView içeriğini ekledim mümkünse oradan yardımcı olur musunuz?
Kullanıcı avatarı
necatisimsek
Yeni Başlamış
 
Kayıt: 05 Tem 2017 12:31
Meslek: Memur
Yaş: 49
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar

Cevap: Cevap: Cevap: ListView'de Tüm Satırı Şarta Bağlı Olar

İleti#6)  Ozan İLGÜN » 26 Ağu 2017 23:45

necatisimsek yazdı:
Orion1 yazdı:Listviewde satırı renklendiremezsinzi.Ancak fontları renklendirebilirsiniz.:cool:

- Olsun o da işimi görür. :)

Kod: Tümünü seç
For i = 1 To ListView1.ColumnHeaders.Count - 1
       ListView1.ListItems(1).ListSubItems(i).ForeColor = vbBlue
    Next
   

    ListView1.Refresh
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2588
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Cevap: Cevap: ListView'de Tüm Satırı Şarta Bağ

İleti#7)  necatisimsek » 27 Ağu 2017 00:03

Ozan İLGÜN yazdı:
necatisimsek yazdı:
Orion1 yazdı:Listviewde satırı renklendiremezsinzi.Ancak fontları renklendirebilirsiniz.:cool:

- Olsun o da işimi görür. :)

Kod: Tümünü seç
For i = 1 To ListView1.ColumnHeaders.Count - 1
       ListView1.ListItems(1).ListSubItems(i).ForeColor = vbBlue
    Next
   

    ListView1.Refresh

@Ozan bey öncelikle ilginize teşekkür ederim. Kod çalıştı fakat benim istediğim 10. sırada bulunan sütunun dolu olması durumunda fontların kırmızı olmasını istemiştim. ;)
Kullanıcı avatarı
necatisimsek
Yeni Başlamış
 
Kayıt: 05 Tem 2017 12:31
Meslek: Memur
Yaş: 49
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar

Cevap: ListView'de Tüm Satırı Şarta Bağlı Olarak Renklendirm

İleti#8)  Ozan İLGÜN » 27 Ağu 2017 02:13

Dosyanızı paylaşmadığınız için okadarını siz halledersiniz diye düşündüğüm için okadarını yapmıştım.
Kafamdan yazıyorum üç aşağı beş yukarı doğrudur ancak kontrol edip yanlışları düzeltirsiniz.

Kod: Tümünü seç
Dim item As Integer
Dim i As Integer
For item = 1 To ListView1.ListItems.Count
If ListView1.ListItems(item).SubItems(10).Value <> "" Then

For i = 1 To ListView1.ColumnHeaders.Count - 1
       ListView1.ListItems(item).ListSubItems(i).ForeColor = vbRed
    Next i
    End If
Next item
    ListView1.Refresh
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2588
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: ListView'de Tüm Satırı Şarta Bağlı Olarak Renklendirm

İleti#9)  necatisimsek » 28 Ağu 2017 15:17

@Ozan kardeşim selamlar;

- Kodu bir kaç düzeltme ile çalıştırabildim. Emeğine sağlık.
- Belki başka birine de lazım olur diye burada da paylaşıyorum.

Kod: Tümünü seç
Dim item As Integer
Dim i As Integer
For item = 1 To Dagitim_Liste.ListItems.Count
If Dagitim_Liste.ListItems(item).ListSubItems(10) <> "" Then
For i = 1 To Dagitim_Liste.ColumnHeaders.Count - 1
Dagitim_Liste.ListItems(item).ListSubItems(i).ForeColor = &HC0&
Dagitim_Liste.ListItems(item).ListSubItems(i).Bold = True
    Next i
    End If
Next item
    Dagitim_Liste.Refresh
Next
End With
Kullanıcı avatarı
necatisimsek
Yeni Başlamış
 
Kayıt: 05 Tem 2017 12:31
Meslek: Memur
Yaş: 49
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar

Cevap: ListView'de Tüm Satırı Şarta Bağlı Olarak Renklendirm

İleti#10)  Ozan İLGÜN » 29 Ağu 2017 17:13

Çözümü paylaştığınız için teşekkürler. İyi günler dilerim.
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2588
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul




Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe