RÉORGANISER UNE LISTVIEW AVEC DES IMAGES DANS LES 3 PREMIÈRES COLONES

   Dim i As Integer
        Dim k As Integer
        Dim j As Integer
        j = (ListViewEx1.Controls.Count - 1)
        Do While k < j And ListViewEx1.Controls.Count > 0
            If ListViewEx1.Controls.Item(i).Name = "" Then
                ListViewEx1.Controls.RemoveAt(k)
            End If
        Loop
        i = 0
        Do While i < ListViewEx1.Items.Count
            If ListViewEx1.Items(i).SubItems(3).Text = "4" Then
                ListViewEx1.Items.Item(i).BackColor = Color.Cyan
                t = ListViewEx1.Items.Item(i).BackColor
                FonColorLV(i)
                i = i + 1
            Else
                i = i + 1
            End If
        Loop
        i = 0
        Do While i < ListViewEx1.Items.Count
            If ListViewEx1.Items(i).SubItems(3).Text = "1" Then
                ListViewEx1.Items.Item(i).BackColor = Color.Red
                t = ListViewEx1.Items.Item(i).BackColor
                FonColorLV(i)
                i = i + 1
            Else
                i = i + 1
            End If
        Loop

        i = 0
        Do While i < ListViewEx1.Items.Count
            If ListViewEx1.Items(i).SubItems(3).Text = "2" Then
                ListViewEx1.Items.Item(i).BackColor = Color.Orange
                t = ListViewEx1.Items.Item(i).BackColor
                FonColorLV(i)
                i = i + 1
            Else
                i = i + 1

Télécharger le zip