Discussion :

[Anduriel]

Bonsoir,

Je chercher simplement à supprimer des lignes sélectionnées d'un ListBox (ListFiles).

J'ai:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ClickDroitSuppr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClickDroitSuppr.Click, MenuSuppr.Click, SousMenuSuppr.Click
 
Dim Index As Integer
 
For Each Index In ListFiles.SelectedIndices
  ListFiles.Items.Remove(ListFiles.GetItemText(ListFiles.Items(Index)))
Next
 
End Sub

Pour 1 item sélectionné, ça fonctionne, mais pour 2, un seul est supprimé, pour 3, 2, pour 4, 3, etc...

D'où vient le problème?
Merci

[StormimOn]

Tout simplement parce que lorsque tu retires un élément de la liste les index suivants ne sont alors plus valides puisque la liste sur laquelle sont basés les index à changée.

Pour faire ce que tu veux, le plus simple c'est d'utiliser une boucle while et la propriété ListBox.SelectedItems. Tant qu'il y a des éléments sélectionnés tu supprimes le premier élément sélectionné et tu devrais obtenir le résultat voulu.

[Anduriel]

Merci, j'ai fait ça et ça a l'air de fonctionner.
S'il y a mieux je suis preneur.

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim C As Integer = TableIndex - 1
While C <> -1
   If ListFiles.GetSelected(C) = True Then
      Array.Clear(TableFiles, C, 1)
      Array.Clear(TableFilesAbsolut, C, 1)
      ListFiles.Items.Remove(ListFiles.GetItemText(ListFiles.Items(C)))
      TableIndex = TableIndex - 1
   End If
   C = C - 1
End While

[StormimOn]

Si on considère la suppression dans la ListBox on peut faire beaucoup plus simple

Code :

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

1
2
3
While ListFiles.SelectedItems.Count > 0
    ListFiles.Items.Remove(ListFiles.SelectedItems(0))
End While

Ensuite, tes tableaux servant à priori à mémoriser un nom long (pour le traitement) et un nom court (pour l'affichage), le plus simple consiste à créer une classe qui représentera un fichier (avec nom long et un nom court) et de faire une liste de "fichiers" (List(Of T)) que tu bindes sur la ListBox (DataSource, DisplayMember).

Par contre comment mets-tu le code dans tes messages ? Car il y a plein de balises de formatage inutiles (taille de police, couleur, ...) dans tes messages.

[Anduriel]

Ensuite, tes tableaux servant à priori à mémoriser un nom long (pour le traitement) et un nom court (pour l'affichage), le plus simple consiste à créer une classe qui représentera un fichier (avec nom long et un nom court) et de faire une liste de "fichiers" (List(Of T)) que tu bindes sur la ListBox (DataSource, DisplayMember).

Merci, je verrai ça plus tard, je commence soft

Par contre comment mets-tu le code dans tes messages ? Car il y a plein de balises de formatage inutiles (taille de police, couleur, ...) dans tes messages.

Mmm je mets un copier-coller de VB (et les couleurs sont conservées). Et comme ça plante un peu, je remodifie.