Adresboek: Valentijnsdag speciale (4 / 11 stap)

Stap 4: De Code: Add_click

Ik maakte de knop toevoegen klikt u op eerst zodat ik items toevoegen kunnen zou voordat ik mijn adressen opslaan

plaats de volgende code na de afmetingen

Dubbelklik op de knop toevoegen en voeg de volgende code toe:

k = False

GF (0, i) = lastn. Tekst

GF (1, i) = firstn. Tekst

GF (2, i) = Numeri Tekst

GF (3, i) = ADR. Tekst

GF (4, i) = city. Tekst

GF (5, i) = st. Tekst

GF (6, i) = zip. Tekst

GF (7, i) = hotness. SelectedItem

ListBox1.Items.Add (gf (0, i) & "~ ~" & gf (1, i) & "~ ~" & gf (2, i) & "~ ~" & gf (3, i) & "~ ~" & gf (4, i) & "~ ~" & gf (5, i) & "~ ~" & gf (6, i) & "~ ~" & gf (7, i))

Ik += 1

Sort()