İşte ben birkaç yıl boyunca çok kullanışlı bulduğum bir değişmeze verir. Listview sayıda sütun veya sütunları çok geniş olduğunda fonksiyonu bir liste görünümü alternatif iki renk çizgiler çiziyor, bu büyük ölçüde okuma kolaylaştırır.
Public Sub colorearListView (ListView olarak ByRef listesi) As Integer Dim i 1 - i list.Items.Count 0 = için I = Int (i / 2) * 2 Daha sonra ise list.Items.Item (i). BackColor = Color.White Başka list.Items.Item (i). BackColor = Color.LightGoldenrodYellow End If Sonraki list.FullRowSelect = True End Sub
Ben de sizin ihtiyaçlarınıza uygun ve aynı zamanda artırabilir çok az çaba ile eminim.
mükemmel bir kod .. listview için çok daha profesyonel bir dokunuş verir .. teşekkürler
Merhaba, çok iyi bir sayfa bana çok yardımcı oluyor, ama bir liste görünümü ile ilgili bir sorun var, Görsel 2005 kullanıyorum.
Ben 2 sütun (Oda, Devlet) ve 2 satır (: Oda: 1 Durum: Meşgul, Oda: 2 Durum: Serbest vb gibi) var. Ben satır 1, sütun 1 olurdu odalarından biri devlet işgal altındaki hücre veya kırmızı boya olup olmadığını bana color.Solamente bu örnekte, kırmızı hücre durumu boyamak için cuaquier ihtiyacımız var.
Bu kodu (lstGrilla.Items (satır). Alt kalemler (col). BackColor = Color.red) deneyin ama uzun başarısız
Ben izah olabilir umuyoruz .. zaten çok teşekkür ederim gelen.!
cehaleti mazur .. ama kiero formun load olayında alt arayıp olarak değil .. Hehe Bana yardım edin! fa tarafından ..!
Sadece bir parametre olarak listview adına geçmek zorunda işlevini kullanmak için:
Private Sub Form1_Load (gönderici ....
colorearListView (ListView1)
End Sub
Merhaba,
ListView rengini değiştirmek nasıl google Aradığınız burada alır
Ben kodu sayesinde hizmet, ben optimize etmek için bir şeyler değişti ve bu sonucu oldu:
Public Sub colorearListView (ListView olarak ByRef listesi)
Renk = Color.FromArgb (0, 225, 239, 253) Dim Renk
As Integer Dim i
I için list.Items.Count 0 = - 1 Adım 2
list.Items.Item (i). BackColor = renk
Sonraki
list.FullRowSelect = True
End Sub
Ve renkli çıktılar için:
colorearListView (ListView1)
Saygılar