kalantho
Messages postés19Date d'inscriptionlundi 5 septembre 2005StatutMembreDernière intervention13 mars 2006
-
9 mars 2006 à 10:36
kalantho
Messages postés19Date d'inscriptionlundi 5 septembre 2005StatutMembreDernière intervention13 mars 2006
-
9 mars 2006 à 14:37
Re re Bonjour :)
Décidement je n'arrête pas d'être confronté à divers problèmes avec mon programme :(
Voilà en fait je souhaiterais supprimer des fichiers qui sont repertoriés dans une listbox après avoir été recherchés.Le code de la recherche est le suivant :
[code.aspx?ID=4834 http://www.vbfrance.com/code.aspx?ID=4834]
La fonction recherche fonctionne vraiment bien sur le type de fichiers spécifique que j'ai selectionné, le seul problème c'est pour les supprimer une fois qu'ils ont été trouvés. :-S
Encore une fois, on m'a indiqué qu'il fallait que je fasse un :
Kill List1.List(i)
Mais j'ai eu beau le placer dans mon code, ça me marque une erreur par rapport à la valeur (i)
J'ai modifié ce (i) en (1) mais ça supprime seulement un des fichiers listé, et si je met un autre chiffre ça me marque une erreur...je n'arrive pas du tout à comprendre... :\
Etant débutant j'avoue avoir beaucoup de mal, je remercie d'ailleurs Econs, pour toutes ses réponses qui m'ont grandement aidé jusqu'à présent.
Je vous remercie d'avance pour toute réponse que vous pourrez me fournir :)
jannoman
Messages postés256Date d'inscriptionjeudi 17 avril 2003StatutMembreDernière intervention20 février 20081 9 mars 2006 à 11:32
voila :
le problleme c'est que si tu fais for k = 1 to n supprimer list1.list(k), list1.remove i, next k,
et bien ca ne vas pas te supprimer tous les fichiers
soit :
n = list1.listcount
for k = 0 to (n - 1)
kill list1.list(0)
list1.removeitem(0)
next k
soit
n = list1.listcount
for k = (n -1) to 0 step --1)
kill list1.list(k)
list1.removeitem(k)
next k
kalantho
Messages postés19Date d'inscriptionlundi 5 septembre 2005StatutMembreDernière intervention13 mars 2006 9 mars 2006 à 11:48
Merci beaucoup pour ta réponse Thomas :) Mais j'ai tout de même un ti soucis...(ralala j'suis désolé :S), J'ai bien déclaré "Dim n As String" étant donné qu'il me faisait une erreur à ce niveau là, mais pour "k" j'ai bien beau le déclarer, il me dit, "type incompatible" et j'arrive pas à comprendre pourquoi. :\
kalantho
Messages postés19Date d'inscriptionlundi 5 septembre 2005StatutMembreDernière intervention13 mars 2006 9 mars 2006 à 14:37
Merci Enormément Jannoman pour ta réponse, cela va me permettre de terminer mon programme à présent et j'en suis vraiment ravi ^^ Je replace le code dans son intégralité juste en dessous au cas où d'autres personnes seraient dans le même cas que moi :)
Dim n As Integer, k As Integer
n = List1.ListCount
For k = 0 To (n - 1)
Kill List1.List(0)
List1.RemoveItem (0)
Next k