Paso 6: El código: Edit_click
después del código de delete_click agregar lo siguiente:
Private Sub edit_Click (ByVal sender como System.Object, ByVal e como System.EventArgs) manijas edición. Haga clic en
SD = ListBox1.SelectedIndex
svedit. Visible = True
Añadir. Visible = False
eliminar. Visible = False
editar. Visible = False
lastn. Texto = gf (0, sd)
firstn. Texto = gf (1, sd)
Num. Texto = gf (2, sd)
ADR. Texto = gf (3 sd)
de la ciudad. Texto = gf (4, sd)
St. Texto = gf (5, sd)
zip. Texto = gf (6, sd)
picor. SelectedItem = gf (7, sd)
End Sub
