Discussion :

[djdjo59]

Salut
je voudrais supprimer plusieurs items sélectionnés dans ma listbox
voici le code de sélection:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim select_index As Integer
        select_index = ListReserves.SelectedIndex.ToString()
 
        'si l'index 0 est sélectionné, tout le listbox est sélectionné'
        If select_index = select_index Then
            ListReserves.SelectionMode = SelectionMode.MultiSimple
 
            'Dim setpe As Integer
            Dim boucle As Integer
            For boucle = 0 To 4
                ListReserves.SelectedIndex = select_index + boucle
 
            Next boucle
        End If

donc si je clique sur un item il me sélectionne les 3 items qui suivent

ce que je voudrais c'est que lorsque je clique sur supprimer, il me supprime les 4 d'un cou de mon fichier journal.txt,
ce code

Code :

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

1
2
3
4
5
 
FileOpen(1, "c:\journal.txt", OpenMode.Append, OpenAccess.ReadWrite)
ListReserves.SelectedItems.Remove(ListReserves.SelectedItems)
 
fileclose(1)

ne me les supprime qu'un par un de ma listbox et pas de mon fichier (je ne sais pas comment faire pour le fichier)
si quelqu'un pouvait m'aider pour la suppression rien que de la listbox ça serait super

merci !