Adresboek: Valentijnsdag speciale (5 / 11 stap)

Stap 5: De Code: Delete_click

na het toevoegen klikt u op code toevoegen de volgende code:

Private Sub delete_Click (ByVal sender As System.Object, ByVal e als System.EventArgs) Handles verwijderen. Klik op
SD = ListBox1.SelectedIndex

Voor q = sd tot en met i - 2

Voor l = 0 tot en met 7

GF (l, q) = gf (l, q + 1)

Volgende

Volgende

Als ik > 0 dan heb ik-= 1

ListBox1.Items.Remove(ListBox1.SelectedItem)

End Sub