Supprimer les éléménts sélectionnés d'une ListBox

Commenter

Contenu du snippet 

'Fonction supprimant les éléments séléctionnés d'un listbox
'renvoie le nombre d'éléments supprimés
Public Function DeleteSelectedItems(ByRef Li As ListBox) As Integer
   'Initialise le résultat
   Dim resultat As Integer = Li.SelectedIndices.Count
   For i As Integer = Li.Items.Count - 1 To 0 Step -1
       If Li.SelectedIndices.Contains(i) Then Li.Items.RemoveAt (i)
   Next
   Return resultat
End Function 'Exemple d'appel
MsgBox (DeleteSelectedItems(ListBox1))

Compatibilité : VB 2005

Disponible dans d'autres langages :

A voir également

Du même auteur (jrivet)