Les Snippets

Connexion

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

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 23/01/2008 13:33:25 et initié par jrivet [Liste]
Date de mise à jour : 29/01/2008 00:52:54
Vue : 12734
Catégorie(s) : Trucs & Astuces, WinForm, Control
Langages dispo pour ce code :
- VB6, VBA
- VB 2005
- C# 2.x
- Javascript
- Delphi 5



Langage : VB6 , VBA
Date ajout : 23/01/2008
Posté par jrivet [Liste]
DateMAJ : 29/01/2008
'En VBA Public Sub DeleteSelectedItem(ByRef Li As MSForms.ListBox)
Public Sub DeleteSelectedItem(ByRef Li As ListBox)
Dim i As Integer
   'on boucle à l'envers pour eviter les erreurs
   'd'index suite à une suppression
   For i = Li.ListCount - 1 To 0 Step -1
       'Si l'element est selectionner => on le supprime
       If Li.Selected(i) Then Call Li.RemoveItem(i)
   Next
End Sub 
'Exemple d'appel Call DeleteSelectedItem(List1)
Remarque :
J'ai cherché ce snippet pour une question posée sur le forum, et j'ai remarqué qu'il n'existait pas.
Alors voilà....
Langage : VB 2005
Date ajout : 23/01/2008
Posté par jrivet [Liste]
DateMAJ : 29/01/2008
'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))
Remarque :
Version VB.NET 2005 Inspirée par http://www.codyx.org/snippet_supprimer-tous-items-coches-checklistbox_510.aspx
Langage : C# 2.x
Date ajout : 23/01/2008
Posté par jrivet [Liste]
;       private void button1_Click(object sender, EventArgs e)
        {
            MessageBox.Show(DeleteSelectedItems(listBox1).ToString() + _
              " élément(s) supprimé(s)");
        }
        /// <summary>
        /// Fonction supprimant tous les items sélectionnés dans une ListBox
        /// </summary>
        /// <param name="Li">L'objet ListBox dont on doit supprimer _
          les élements</param>
        /// <returns>Le Nombre d'items supprimés</returns>
        public int DeleteSelectedItems(ListBox Li)
        {
            //initialise le résultat
            int result = Li.SelectedIndices.Count;
            //on boucle pour chaque items
            for (int i = Li.Items.Count - 1; i >= 0; i--)
            {
                //si i est contenu dans les indices cochés
                if (Li.SelectedIndices.Contains(i))
                {
                    //on efface l'items à l'indice i
                    Li.Items.RemoveAt(i);
                }
            }
            return result;
        }
Remarque :
Tant que je suis lancé je propose aussi la version C#2005
Langage : Javascript
Date ajout : 24/01/2008
Posté par bultez [Liste]
<body>
    <script type="text/javascript">
        function supprime()
        {   var s=document.getElementById("sel");
            for( var n=s.length-1;n>=0;n--)
            {   if (s.options[n].selected) 
                { s.remove(n);    }
            }
        }
    </script>
    <select id="sel" multiple size=10>
        <option>un</option>
        <option>deux</option>
        <option>trois</option>
        <option>quatre</option>
        <option>cinq</option>
        <option>six</option>
        <option>sept</option>
        <option>huit</option>
        <option>neuf</option>
        <option>dix</option>
        <option>onze</option>
        <option>douze</option>
        <option>treize</option>
    </select>
    <input   type="button"
                onclick="supprime();"
                value="supprimer" />
</body>
Langage : Delphi 5
Date ajout : 18/08/2008
Posté par f0xi [Liste]

ListBoxN.DeleteSelected;



Snippets en rapport avec : Supprimer, Listbox, Elements, Selectionnes



Codes sources en rapport avec : Supprimer, Listbox, Elements, Selectionnes

{Visual Basic, VB6, VB.NET, VB 2005} COMPARER_2FICHIERS_TEXTE
Comparer 2 listes: On charge les 2 fichiers dans 2 listBox sans afficher les lignes vides. Dans une...

{Visual Basic, VB6, VB.NET, VB 2005} SURVEILLER_CHANGEMENT_REGISTRE
Surveiller les clés qui ont changées. Le principe est simple, vous enregistrez les clés une premièr...

{Visual Basic, VB6, VB.NET, VB 2005} CONVERTIR FORMAT IMAGE
Convertir les formats image par lot ou image par image. Formats supportés: jpg, gif, bmp, wmf, png, ...

{Visual Basic, VB6, VB.NET, VB 2005} MODIFIER_RÉSOLUTION_PPP_IMAGE
Modifier la résolution ppp d'une image par lot ou image par image. Les dimensions des côtés de l'ima...

{IRC} ......................
.......................................................................................................

{Visual Basic, VB6, VB.NET, VB 2005} REDIMENSIONNER IMAGE
Redimensionner ou compresser vos images par lot ou image par image en gardant la même résolution en ...

{Python} CALCUL DE RÉSISTANCES
Permet de trouver la valeur d'une résistance à partir du code couleur et vice versa: -Le code coule...

{Visual Basic, VB6, VB.NET, VB 2005} RECUPERER ET AFFICHER LES MESSAGES D'INFORMATION ET D'ERREUR EN PROVENANCE DU SERVEUR SQL
Cette source permet la connexion à une base de données SQL recuperer l'ensemble tes tables de la BD...

{Visual Basic, VB6, VB.NET, VB 2005} GADGET DIAPORAMA
Pour ceux qui n'ont pas Vista, voici le programme qu'il vous faut! Un "Gadget" qui se place en haut ...

{Visual Basic, VB6, VB.NET, VB 2005} APPLICATIONS AU DÉMARRAGE DE WINDOWS EN VBA
Il y a des sources traitant le sujet sur le site, mais je n'en ai pas vu en VBA Excel. L'utilisatio...