SUPPRESSION ELEMENTS SELECTIONNES DANS UNE LISTEBOXRésolu

Question

Bonjour

Voici un soucis que je n'arrive pas à résoudre (environnement VB6) :

A partir de ce code :

For i = 0 To Liste_Ptcp.ListCount - 1
    If Liste_Ptcp.Selected(i) = True Then Liste_Ptcp.RemoveItem (i)
Next i

Tous les éléments sélectionnés (case à cocher) dans la listebox nommée Liste_Ptcp doivent être supprimés.
Cependant, à un moment donné j'ai le message d'erreur suivant :

Erreur d'exécution 381, index de tableau de propriété incorrect.

Je ne vois pas ce qui peut générer cette erreur.
Merci de votre aide.

Cdlt
Jerome

cs_Exploreur · Accepted Answer

Salut,

Commence ta boucle par la fin de ta listbox..

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Re,

Private Sub Command1_Click()


For i = Liste_Ptcp.ListCount - 1 To 0 Step -1
    If Liste_Ptcp.Selected(i) = True Then Liste_Ptcp.RemoveItem (i)
Next i


End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

winvsmac · Answer

Mereci Exploreur

Je n'aurai jamais pensé à commencer ma boucle par la fin.
un grand merci
jerome

cs_Exploreur · Answer

c'est parce que en supprimant par le début cela change la position des index...en commençant par la fin tu seras toujours dans un "ordre" logique et continue ^^

A+
Exploreur

 Linux a un noyau, Windows un pépin

SUPPRESSION ELEMENTS SELECTIONNES DANS UNE LISTEBOX

4 réponses

Votre réponse

Discussions similaires