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
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.