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