Visual Basic
Ape.SelLength = Len(Ape.Text) End Sub
Private Sub Boton_añadir_Click()
totalregistros = totalregistros + 1
If totalregistros > 50 Then
MsgBox"losta completa", 16, "error" Else
agenda(totalregistros).Nombre = Nom.Text agenda(totalregistros).apellidos = Ape.Text agenda(totalregistros).telefono = Tel.Text agenda(totalregistros).Edad =Val(Edad.Text) Lista_1.AddItem Nom.Text
Lista_2.AddItem Nom.Text
End If
Nom.SetFocus
Private Sub Boton_eliminar_Click(Index As Integer) Dim I, B As Integer
For I = 1 To totalregistros
If(RTrim$(Lista_1.Text) = RTrim$(agenda(I).Nombre)) Then
Exit For End If Next I
Nom.Text = agenda(I).Nombre Ape.Text = agenda(I).apellidos Tel.Text = agenda(I).telefono Edad.Text = Str(agenda(I).Edad)
B =MsgBox("Eliminar Registro:" + Nom.Text, 3 + 32, "Eliminar") If B = 6 Then
Lista_1.RemoveItem I - 1 totalregistros = totalregistros - 1
For j = I To totalregistros agenda(j).Nombre = agenda(j +1).Nombre agenda(j).apellidos = agenda(j + 1).apellidos agenda(j).telefono = agenda(j + 1).telefono agenda(j).Edad = agenda(j + 1).Edad
Next j Nom.Text = "" Ape.Text = "" Tel.Text = "" Edad.Text = ""End If
End Sub
Private Sub Boton_fin_Click(Index As Integer) End
End Sub
Private Sub Eda_GotFocus() Eda.SelStart = 0
Eda.SelLength = Len(Eda.Text) End Sub
Private Sub Form_Load()totalregistros = 0
End Sub
Private Sub Lista_2_Change() Dim n As Integer
n = Lista_2.ListIndex + 1
Nom.Text = agenda(n).Nombre Ape.Text = agenda(n).apellidos Tel.Text = agenda(n).telefono Eda.Text =agenda(n).Edad
Private Sub Nom_GotFocus() Nom.SelStart = 0
Nom.SelLength = Len(Nom.Text) End Sub
Private Sub Tel_GotFocus() Tel.SelStart = 0
Tel.SelLength = Len(Nom.Text) End Sub
Crearun módulo
Type registro
Nombre As String * 15 apellidos As String * 25 telefono As String * 15
Edad As String * 3
End Type
Global agenda(1 To 50) As registro
Global totalregistros As Integer
Regístrate para leer el documento completo.