Suppression plusieurs items
Salut
je voudrais supprimer plusieurs items sélectionnés dans ma listbox
voici le code de sélection:
Code:
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:
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 !
