Étape 6: Le Code : Edit_click
après le code de delete_click, ajouter ce qui suit :
Private Sub edit_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit. Cliquez sur
SD = ListBox1.SelectedIndex
svedit. Visible = True
Ajouter. Visible = False
supprimer. Visible = False
Edit. Visible = False
lastn. Texte = gf (0, sd)
firstn. Texte = gf (1, sd)
num. Texte = gf (2, sd)
EIM. Texte = gf (3, sd)
ville. Texte = gf (4, sd)
St. Texte = gf (5, sd)
fermeture par zip. Texte = gf (6, sd)
hotness. SelectedItem = gf (7, sd)
End Sub