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

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

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.