effacer des Item dans une listview

Question

Amonn

SVP Help !
je veux effacer des Items dans une listview ! le prob c ke quand je fais :

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
ListView1.ListItems.Remove i
End If
Next i

ça me di :index hors limites !

sinon cette manip me permettra elle de supprimer toutes les colonnes de la list item? 

merci d'av a celui qui me sauvera et bonne prog a tous !

cs_raff · Answer

le probleme c'est que a mesure que la boucle est exécutée, la propriété count du listview change (elle diminue) ce qui donne ton erreur.

VicoLaChips2 · Answer

Bonjour -;)
Le problème :

For i =  1 To ListView1.ListItems.Count
La méthode .count renvoie le nb d'éléments sur une base de 1...
Donc il faut coder : 

For i = 1 To ListView1.ListItems.Count -1
   'code
next

comme ça i ne sera jamais supérieur au nombre d'éléments...

@+, VIC
---------------------
 Réponse au message :		  
-------------------------------

>  Amonn 
> 
> SVP Help !
> je veux effacer des Items dans une listview ! le prob c ke quand je fais :
> 
> For i  = 1 To ListView1.ListItems.Count
> If ListView1.ListItems(i).Checked = True Then
> ListView1.ListItems.Remove i
> End If
> Next i
> 
> ça me di :index hors limites !
> 
> sinon cette manip me permettra elle de supprimer toutes les colonnes de la list item? 
> 
> merci d'av a celui qui me sauvera et bonne prog a tous !

amonn · Answer

Amonn

Merci bcp pour votre coup de main...là j'ai mieux compris! et surtout ça marche mieux mon appli !
bonne journée  :big)

cs_colin_b · Answer

Moi j'ai fait comme ça et ça marche très bien !
Ton problème c'est que tu effaces dans le la boucle for 

'info : mon listview s'appelle LV_taches

Private Sub supprimer_Click()
tmp = LV_taches.ListItems.Count 'efface par défaut le dernier
For i = 1 To LV_taches.ListItems.Count    If LV_taches.ListItems(i).Selected True Then tmp i
Next
If LV_taches.ListItems.Count > 0 Then LV_taches.ListItems.Remove tmp
End Sub

cs_patrick · Answer

Un simple

           While Me.ListView.ListItems.Count > 0
              Me.ListView.ListItems.Remove (1)
          Wend

Suffit... mais c'est lent !

patrick Moire
http:\jeux.cartes.free.fr

cs_patrick · Answer

Plus rapidement

listview.ListItems.Clear

patrick Moire
http:\jeux.cartes.free.fr

Effacer des Item dans une listview

6 réponses

Discussions similaires