Discussion :

[Jihnn]

Bonjour,

Ça fait maintenant un bon bout de temps que je n'ai pas fait de Visual Basic, et j'ai décidé de faire un petit programme pour mon plaisir.


Malgré la facilité du projet, je me retrouve quand même avec certaines erreurs, dont une où je ne suis pas capable de trouver une solution.

L'erreur Runtime 381 : Invalid Property Array Index.
Si j'ai bien compris, cette erreur est due au fait que je ne suis plus dans l'array avec ma boucle.

Le problème, c'est que je ne comprends pas pourquoi. Voici mon bout de compte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cmdRemove_Click()
    Dim i As Integer, strFiles As String
 
    For i = 0 To lstExe.ListCount - 1
        If (lstExe.Selected(i) = True) Then
            lstExe.RemoveItem (i)
            strFiles = strFiles & lstExe.List(i) & vbCrLf
        End If
    Next i
 
    If (Len(strFiles) > 0) Then MsgBox "The following file(s) has (have) been removed : " & vbCrLf & strFiles, vbOKOnly, "Removing Files"
End Sub

J'avais pensé que puisque j'efface un item dans ma boucle, le .ListCount diminue, ce qui fait que i devient trop grand.

Je tiens à préciser que ça n'arrive pas lorsque je choisis seulement le dernier item de ma liste, ce qui renforce ma théorie.

J'essaie toujours d'arranger ça le plus proprement possible pour éviter un code laid et illisible :p

Merdi d'avance,

Jihnn

[SfJ5Rpw8]

....J'avais pensé que puisque j'efface un item dans ma boucle, le .ListCount diminue, ...

cela à bien l'air d'être ton problème, en VB les limites d'une boucle FOR ne sont pas ré-évalués durant la boucle .. elles sont calculées à la première iteration .. puis conservés jusqu'à la fin de la boucle .. ainsi le fait que ton .ListCount diminue durant la "rotation" dans la boucle n'influence pas la fin de celle-ci.... dans ton cas un débordement...

[Jihnn]

Merci de cette réponse.

Dans ce cas, quel est mon problème ? Sachant que si seulement le dernier item est sélectionné (et donc supprimé), aucune erreur ne se produit ?

Edit: Pendant que j'y pense, la ligne qui produit l'erreur est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (lstExe.Selected(i) = True) Then

[Delbeke]

Et si tu faisais une boucle do while ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdRemove_Click()
    Dim i As Integer, strFiles As String
    i= 0
    Do while i <=lstExe.ListCount - 1
        If (lstExe.Selected(i) = True) Then
            lstExe.RemoveItem (i)
            strFiles = strFiles & lstExe.List(i) & vbCrLf
        End If
        i = i+1
    loop 
 
    If (Len(strFiles) > 0) Then MsgBox "The following file(s) has (have) been removed : " & vbCrLf & strFiles, vbOKOnly, "Removing Files"
End Sub

[Jihnn]

Merci

Ça marche, mais moyennement :/

Je n'ai plus d'erreur, mais si je supprime le dernier fichier (avec ou sans un autre), il va marcher bizarrement.

Si seulement le dernier fichier est sélectionné, ça ne marche pas (Ça l'enlève de la liste, mais pas du fichier où il est écrit).
Si je prend le dernier et un autre, le troisième sera supprimé au lieu des deux autres dans le fichier, mais les deux sélectionnés seront supprimés de la liste

Bref, un peu compliqué... Voici le code de cette procédure, le reste marche bien toutefois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub cmdRemove_Click()
    Dim i As Integer, j As Integer, k As Integer, l As Integer, strFiles As String, arrLines() As String
 
    Open App.Path & "\exeloader.txt" For Input As #1
        i = 0
        While Not EOF(1)
            i = i + 1
            ReDim Preserve arrLines(i)
            Line Input #1, arrLines(i)
        Wend
    Close #1
 
 
    j = 0
    Do While j <= lstExe.ListCount - 1
        If (lstExe.Selected(j) = True) Then
            lstExe.RemoveItem (j)
            strFiles = strFiles & lstExe.List(j) & vbCrLf
            For k = 0 To UBound(arrLines)
                If arrLines(k) = LCase(lstExe.List(j)) Then arrLines(k) = vbNullString
            Next k
        End If
        j = j + 1
    Loop
 
    Open App.Path & "\exeloader.txt" For Output As #2
        For l = 0 To UBound(arrLines)
            If arrLines(l) <> vbNullString Then Print #2, arrLines(l)
        Next l
    Close #2
 
    If (Len(strFiles) > 0) Then MsgBox "The following file(s) has (have) been removed : " & vbCrLf & strFiles, vbOKOnly, "Removing Files"
End Sub

[SfJ5Rpw8]

ne doit tu pas inverser l'ordre de ces 2 lignes...? tu enlève "l'item" de ta liste puis tu l'utilise (donc c'est plus lui mais le suivant..) pour ta concaténation..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
            lstExe.RemoveItem (j)
            strFiles = strFiles & lstExe.List(j) & vbCrLf

sinon la solution pour ta boucle est peu-être de l'effectuer en sens inverse...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 For i =  lstExe.ListCount - 1 TO 0  step -1

ainsi le fait de supprimer un 'item' .. ne provoque pas de décalage dans les 'items' restant à traiter ...

[zazaraignée]

Salut

Je viens de tester ceci avec une liste dont la propriété Multiselect = 2 pour Extended.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub cmdSupprimerItem_Click()
    Dim i As Integer
    i = 0
    Do While i < List1.ListCount
        ' code pour supprimer le fichier...
        If List1.Selected(i) Then List1.RemoveItem i
        i = i + 1
    Loop
End Sub

Ça fonctionne bien

Ceci dit, pour une liste à sélection simple, pas la peine de se fatiguer, une seule ligne suffit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    List1.RemoveItem List1.ListIndex

[Edit] Avant que j'oublie, puisque la liste contient des noms de fichiers, pour pouvoir effacer le fichier à partir de son nom complet (avec le chemin), il vaut mieux procéder à l'effacement du fichier avant de supprimer son nom de la liste. Ou encore mettre temporairement ce nom dans une variable.