pravb606

!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!
CURSO: Lenguaje de Programación Visual Basic
INSTRUCTOR: L.I. Raymundo Lumbreras López
Nombre del participante: __________________________________________________________________

Práctica No. 6
Objetivo: Que el Participante implemente una aplicación utilizando las instrucciones propias de Archivos de
Acceso Aleatorio, Matrices deControles, Listas Desplegables y Diseño de Menús
Instrucciones: Capture la siguiente Información Considerando las observaciones y lineamientos establecidos durante las
clases y en apego al material de apoyo
Desarrollo:

[Hoja 1 de 7]

!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!
Objeto
TextBox
TextBox
TextBox
TextBox
ComboBox
CommandButton
CommandButton
CommandButton
CommandButton
FormMódulo
Proyecto
CommonDialog
Label *

Name
txtNombre
txtDirec
txtTelef
txtNotas
lstTeléfonos
cmdAdiciona
cmdVisualiza
cmdEliminar
cmdSalir
frmTeléfonos
modListelef
useFile
dlgAcceso

Caption

Text
Nada
Nada
Nada
Nada

ScrollBars

Sorted

2 - Vertical

Multiline

True
True

Adicionar
Visualizar
Eliminar
Salir
Agenda 99(2)

Menú
Caption
&Archivo
A&brir
&Salvar

&Terminar
&Acerca de...

Name
mnuSalirmnuAbrir
mnuSalvar
mnuSep
mnuTerminar
mnuAcercade

Código
Private Sub cmdAdiciona_Click()
If txtNombre.Text = "" Or txtDirec.Text = "" Or txtTelef.Text = "" Then
mensaje = MsgBox("No puede dejar en Blanco los campos de Dirección, Nombre o Teléfono", 0 + 32, "Información
Incompleta")
Exit Sub
End If
TotalRegis = TotalRegis + 1
Telefons(TotalRegis).Nombre = txtNombre.Text
Telefons(TotalRegis).Dirección =txtDirec.Text
Telefons(TotalRegis).Teléfono = txtTelef.Text
Telefons(TotalRegis).Notas = txtNotas.Text
' Se adiciona el nombre a la lista Telefons
lstTeléfonos.AddItem txtNombre.Text
'----------------------------------txtNombre.Text = ""
txtDirec.Text = ""
txtTelef.Text = ""
txtNotas.Text = ""
txtNombre.SetFocus
End Sub

Curso: Lenguaje de Programación Visual Basic. Práctica 6
Instructor: L.I.Raymundo Lumbreras López [Hoja 2 de 7]

!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!

Private Sub cmdEliminar_Click()
Dim I As Integer, R As Integer
' Eliminar el registro R de la matriz, iniciamos la búsqueda
For I = 1 To TotalRegis
If (RTrim(Telefons(I).Nombre) = RTrim(lstTeléfonos.Text)) Then
Exit For
End If
Next I
If I > TotalRegis Then Exit Sub ' No se encontro el registro
' R = Ies el registro a borrar.
' Se borra retrocediendo una posición todos los registros que
' esten a continuación del registro R que deseamos borrar
For R = 1 To TotalRegis - 1
Telefons(R) = Telefons(R + 1)
Next R
' Se borran los datos del último registro
Telefons(TotalRegis).Nombre = ""
Telefons(TotalRegis).Dirección = ""
Telefons(TotalRegis).Teléfono = ""
Telefons(TotalRegis).Notas = ""
' Seactualiza el contador de registros
TotalRegis = TotalRegis - 1
' Se borra el nombre seleccionado de la lista Telefons
' Posición que ocupa el nombre en la lista
R = lstTeléfonos.ListIndex
' Se elimina el Nombre
lstTeléfonos.RemoveItem R
End Sub
Private Sub cmdSalir_Click()
Unload frmTeléfonos2
End
End Sub
Private Sub cmdVisualiza_Click()
Call VisualizarRegistro
End Sub
Private Sub Form_Load()cmdVisualiza.Enabled = False
cmdEliminar.Enabled = False
End Sub
Private Sub lstTeléfonos_DblClick()
Call VisualizarRegistro
End Sub
Private Sub lstTeléfonos_GotFocus()
cmdVisualiza.Enabled = True
cmdEliminar.Enabled = True
cmdAdiciona = False
End Sub

Curso: Lenguaje de Programación Visual Basic. Práctica 6
Instructor: L.I. Raymundo Lumbreras López [Hoja 3 de 7]!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!"!
Private Sub lstTeléfonos_KeyPress(KeyAscii As Integer)
Dim I As Integer
For I = 0 To TotalRegis - 1
If Left(lstTeléfonos.List(I), 1) = Stry(KeyAscii) Then
lstTeléfonos.ListIndex = 1
Exit For
End If
Next I
End Sub
Private Sub mnuAbrir_Click()
dlgAcceso.Filter = "BD de teléfonos (*.tfn)|*.tfn|" & "Todos (*.*)|*.*"
'Filtro por defecto
dlgAcceso.FilterIndex = 1
'Visualiza la caja de...