Étape 5: Le Code : Delete_click
après l’add cliquez sur code ajouter le code suivant :
Private Sub delete_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles supprimer. Cliquez sur
SD = ListBox1.SelectedIndex
Pour q = sd à i - 2
Pour l = 0 à 7
GF (l, q) = gf (l, q + 1)
Prochaine
Prochaine
Si j’ai > 0 alors je-= 1
ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub