Paso 7: El código: svedit
después del código de edit_click agregar el siguiente
Private Sub svedit_Click (ByVal sender como System.Object, ByVal e como System.EventArgs) manijas de svedit. Haga clic en
svedit. Visible = False
Añadir. Visible = True
eliminar. Visible = True
editar. Visible = True
GF (0, sd) = lastn. Texto
GF (1, sd) = firstn. Texto
GF (2, sd) = NUM. Texto
GF (3 sd) = ADR. Texto
GF (4, sd) = ciudad. Texto
GF (5, sd) = st. Texto
GF (6, sd) = zip. Texto
GF (7, sd) = picor. SelectedItem
ListBox1.Items(sd) = lastn. Texto & "~ ~" & firstn. Texto & "~ ~" & num. Texto & "~ ~" & ADR. Texto & "~ ~" & ciudad. Texto & "~ ~" & st. Texto & "~ ~" & zip. Texto & "~ ~" y picor. SelectedItem
sort()
End Sub
