Stap 7: De Code: svedit
na de edit_click code toevoegen de volgende
Private Sub svedit_Click (ByVal sender As System.Object, ByVal e als System.EventArgs) Handles svedit. Klik op
svedit. Zichtbaar = False
toevoegen. Zichtbaar = True
verwijderen. Zichtbaar = True
bewerken. Zichtbaar = True
GF (0, sd) = lastn. Tekst
GF (1, sd) = firstn. Tekst
GF (2, sd) = Numeri Tekst
GF (3, sd) = ADR. Tekst
GF (4, sd) = city. Tekst
GF (5, sd) = st. Tekst
GF (6, sd) = zip. Tekst
GF (7, sd) = hotness. SelectedItem
ListBox1.Items(sd) = lastn. Tekst & "~ ~" & firstn. Tekst & "~ ~" & Numeri Tekst & "~ ~" & ADR. Tekst & "~ ~" & stad. Tekst & "~ ~" & st. Tekst & "~ ~" & zip. Tekst & "~ ~" & hotness. SelectedItem
Sort()
End Sub