Mewarnai ListView

Di sini saya memberikan sebuah subrutin yang saya temukan sangat berguna selama beberapa tahun. Fungsi melukis garis-garis bolak ListView dua warna, ini sangat memudahkan membaca ketika ListView memiliki banyak kolom atau kolom yang sangat luas.

 Public Sub colorearListView (ByRef daftar Sebagai ListView)
 Dim i As Integer
 Untuk i = 0 Untuk list.Items.Count - 1
 Jika i = Int (i / 2) * 2 Lalu
 list.Items.Item (i) BackColor =. Color.White
 Lain
 list.Items.Item (i) BackColor =. Color.LightGoldenrodYellow
 End If
 Berikutnya
 list.FullRowSelect = True
 End Sub

Saya yakin dengan usaha yang sedikit juga mungkin sesuai dengan kebutuhan Anda dan juga memperbaikinya.

5 Responses to "Color ListView"

  1. cibernetiko mengatakan:

    sangat baik kode .. memberikan sentuhan yang lebih profesional untuk ListView .. terima kasih

  2. NicoNqn mengatakan:

    Halo, halaman sangat baik membantu saya banyak, tapi aku punya masalah dengan ListView, saya menggunakan Visual 2005.
    Saya punya 2 kolom (Kamar, Negara) dan 2 baris (misalnya: Kamar: 1, Status: Sibuk, Kamar: 2, Status: dll Gratis). Saya perlu bahwa jika keadaan salah satu kamar adalah sel yang diduduki atau cat merah saya cuaquier color.Solamente melukis dalam status sel darah merah, dalam contoh ini akan menjadi baris 1, kolom 1.
    Saya mencoba dengan kode (lstGrilla.Items (baris) subitems (col). BackColor =. Color.Red) tapi saya gagal jauh
    Saya berharap bahwa saya mungkin telah dijelaskan .. dari sudah terima kasih banyak.

  3. l_kamikaze_l mengatakan:

    maafkan kebodohan .. tetapi kiero memanggil sub dalam hal beban bentuk dan bukan sebagai .. Bantu saya hehe! oleh fa ..!

  4. Geronimo Fernandez mengatakan:

    Untuk menggunakan fungsi Anda hanya harus melewati nama ListView Anda sebagai parameter:

    Private Sub Form1_Load (pengirim ....

    colorearListView (ListView1)

    End Sub

  5. Pako mengatakan:

    Halo,

    Mencari google cara mengubah warna untuk ListView tiba di sini :)

    Saya melayani kode, terima kasih, saya mengubah sesuatu untuk mengoptimalkan dan ini adalah hasilnya:

    Public Sub colorearListView (ByRef daftar Sebagai ListView)
    Dim Warna Sebagai Warna = Color.FromArgb (0, 225, 239, 253)
    Dim i As Integer
    Untuk i = 0 Untuk list.Items.Count - 1 Langkah 2
    list.Items.Item (i) BackColor =. warna
    Berikutnya
    list.FullRowSelect = True
    End Sub

    Dan untuk output warna:

    colorearListView (ListView1)

    Salam

Komentar