Цветен гледания

Тук дам функция, която открих, че е много полезно за няколко години. Функцията рисува линии на една гледания редуващи се два цвята, това значително улеснява четенето, когато гледания има много колони или колони са много широки.

 На Обществено Sub colorearListView (ByRef списъка гледания)
 Дим и като цяло число
 За I = 0 с list.Items.Count - 1
 Ако аз = Int (I / 2) * 2 Тогава
 list.Items.Item (I). BackColor = Color.White
 Още
 list.Items.Item (I). BackColor = Color.LightGoldenrodYellow
 Крайна сметка, ако
 До
 list.FullRowSelect = True
 End Sub

Сигурен съм, че с много малко усилия може също така да отговарят на вашите нужди и също така да я подобрим.

5 коментара към "цветен гледания"

  1. cibernetiko казва:

    Отлична код ... дава много по-професионален вид гледания .. благодаря

  2. NicoNqn казва:

    Здравейте, много добра страница ми помогна много, но имам проблем с гледания, аз използвам Visual 2005.
    Имам 2 колони (стая, държава) и 2 реда (например: стая: 1, Състояние: Зает стая: 2 Статус: свободен и т.н.). Имам нужда, че ако състоянието на една от стаите е заета клетка или червена боя, ме cuaquier color.Solamente да рисува в статут на червени кръвни клетки, в този пример ще бъде ред 1, колона 1.
    Аз се опитвам с този код (lstGrilla.Items (ред). SubItems (COL). BackColor = Color.Red), но аз не успяват дълго
    Надявам се, че може да обясни. От вече ви благодаря много.!

  3. l_kamikaze_l казва:

    извинете невежеството ... но kiero се обадете на под в товарното случай на формата, а не като ... Помогни ми, хехе! от еа ..!

  4. Джеронимо Фернандес казва:

    За да използвате функцията, просто трябва да мине името на вашия гледания като параметър:

    Private Sub Form1_Load (Sender ....

    colorearListView (ListView1)

    End Sub

  5. Пако казва:

    Здравейте,

    , Искана Google как да променя цвета си до гледания получава тук :)

    Аз служих код, благодарение, промени нещо, да се оптимизира и това е резултатът:

    На Обществено Sub colorearListView (ByRef списъка гледания)
    Дим Цвят като цвят = Color.FromArgb (0, 225, 239, 253)
    Дим и като цяло число
    Защото аз = 0 До list.Items.Count - 1 Стъпка 2
    list.Items.Item (I). BackColor = цвят
    До
    list.FullRowSelect = True
    End Sub

    И за цветен печат:

    colorearListView (ListView1)

    Пожелания

Коментар