1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub Supprimer_Click(sender AsObject, e AsEventArgs) Handles Supprimer.Click
For Each Film As Films In ListeDeFilms
'For i As Integer = 0 To Liste.Items.Count - 2
Dim Rep AsInteger
If Liste.SelectedItem = Film.Name Then
Rep = MsgBox("Voulez-vous vraiment supprimer ce film?", 0, "Confirmation de Suppression")
If Rep = 1 Then
Liste.Items.Remove(Liste.SelectedItem)
ListeDeFilms.Remove(Film)
MsgBox("Votre film a été supprimé", 0, "Confirmation")
'i = i - 1
MiseAJour()
EndIf
EndIf
'Next
Next
End Sub |
Partager