Stap 6: De Code: Edit_click
na de delete_click-code de volgende items toevoegen:
Private Sub edit_Click (ByVal sender As System.Object, ByVal e als System.EventArgs) Handles bewerken. Klik op
SD = ListBox1.SelectedIndex
svedit. Zichtbaar = True
toevoegen. Zichtbaar = False
verwijderen. Zichtbaar = False
bewerken. Zichtbaar = False
lastn. Tekst = gf (0, sd)
firstn. Tekst = gf (1, sd)
Numeri Tekst = gf (2, sd)
ADR. Tekst = gf (3, sd)
stad. Tekst = gf (4, sd)
St. Tekst = gf (5, sd)
rits. Tekst = gf (6, sd)
hotness. SelectedItem = gf (7, sd)
End Sub