Étape 7: Le Code : svedit
après le code d’edit_click ajouter ce qui suit
Private Sub svedit_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles svedit. Cliquez sur
svedit. Visible = False
Ajouter. Visible = True
supprimer. Visible = True
Edit. Visible = True
GF (0, sd) = lastn. Texte
GF (1, sd) = firstn. Texte
GF (2, sd) = num. Texte
GF (3, sd) = ADR. Texte
GF (4, sd) = ville. Texte
GF (5, sd) = st. Texte
GF (6, sd) = zip. Texte
GF (7, sd) = hotness. SelectedItem
ListBox1.Items(sd) = lastn. Text & "~ ~" & firstn. Text & "~ ~" & num. Text & "~ ~" & EIM. Text & "~ ~" & ville. Text & "~ ~" & st. Text & "~ ~" & zip. Text & "~ ~" & hotness. SelectedItem
sort()
End Sub