Réorganiser une listview avec des images dans les 3 premières colones

Soyez le premier à donner votre avis sur cette source.

Vue 9 345 fois - Téléchargée 903 fois

Description

Cette source est la première que je dépose donc j'attends vos commentaires.
Mon but était de réussir à trier les éléments d'une listview (avec des images intégrées).
J'utilise un contrôle ListviewEx qui est dans le dossier Bin\Debug qui permet une réorganisation des colonnes.
Le principe est d'ajouter des picturebox dans la colonne et dans la ligne voulu d'un listview (code récupérer sur Vb France)
J'ai ajouté la possibilité de trie pour cela je supprime mais picturebox à l'événement click column
et je les redessine ensuite en fonction de l'index

Source / Exemple :


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

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.