Declaración general, las variables deben definirse antes de su uso.
Marcar el nombre del archivo como una cadena
Una variable utilizada para almacenar la ruta del archivo.
Subcomando privado 1_Click()
Haga clic en el código de evento de Command1.
Función: Añade un nuevo registro de comunicación, cuyos atributos son el contenido de los cinco cuadros de texto.
Marcar I como un número entero
Usar ListView1. ListItems.Add()
Agrega un nuevo elemento de lista a ListView1.
. Texto = Texto1(0)
Establezca la propiedad de texto de ListView1 en el contenido del cuadro de texto número 0 en la matriz de cuadros de texto.
Para i = 1 a 4
. Subelemento (i) = Texto1(i)
Asigne valores a las cuatro propiedades del nuevo elemento de la lista a través de un bucle, y sus valores son el contenido de los otros cuatro cuadros de texto en el texto1 formación.
Siguiente I
Terminar con...
Finalizar conector
Subcomando privado 2_Click()
Único Haga clic en el código de evento de Command2.
Función: Elimina el registro de comunicación seleccionado.
Si ListView1. ListItems. Count & gtThen 0
Si el número de elementos de la lista en el ListView actual es mayor que 0, no está vacío.
Si MsgBox("¿Realmente desea eliminar?", VB question+VB sí no+vbdefaultbutton 2)= VB sí Entonces
Muestra un cuadro de diálogo que pregunta si desea eliminar, si el usuario selecciona Sí, entonces
Vista de lista 1. Eliminar ListView1. Seleccione EditItem.Index
Eliminar el elemento de la lista seleccionado.
Terminará si...
Terminará si...
Finalizar conector
Privado subform_Load() p>
Código de evento de carga de formulario
Función: inicializa la barra de título del formulario y la matriz del cuadro de texto, lee los registros de comunicación del archivo y los muestra en ListView1.
Dim tpStr es una cadena, I es un número entero, j es un número entero
I. Caption = "Libreta de direcciones"
Cambie la barra de título del formulario actual para mostrar la libreta de direcciones.
Para j = 0 a 4
Texto1(j). Text = " "
Borrar 5 cuadros de texto.
Siguientej
Nombre de archivo=aplicación. Caminos y caminos. " \data.txt "
Asigne un valor a fileName como la ruta a data.txt en el directorio donde se encuentra el programa actual.
Si el directorio (nombre de archivo)& lt& gt""entonces
Si el archivo data.txt existe en el directorio donde se encuentra el programa actual.
Abrir nombre de archivo como entrada n.º 1
Abrir este archivo de solo lectura en el espacio de trabajo 1.
Hacer mientras no sea EOF(1)
Si el archivo no se ha leído por completo.
Utilice ListView1. ListItems.Add()
Agrega un nuevo elemento de lista a ListView1.
Para i = 0 a 4
Entrada de línea #1, tpStr
Lee la cadena del archivo.
Si i = 0, entonces
. Text = tpStr
Si es la 1ª lectura, se asigna a la propiedad text de la vista de lista.
Otro
En caso contrario, asígnalo al hijo correspondiente.
.
Elemento (i) = tpStr
Terminará si...
Siguiente I
Terminará con...
Anillo
Cerrar #1
Cierra el archivo después de leerlo.
Terminará si...
Finalizar conector
Subformulario privado_Descarga (cancelar a entero)
Código de evento de salida del programa.
Función: Guarda libretas de direcciones agregadas y eliminadas y sale del programa.
Anotar I como un número entero
Anotar tpList como un ListItem
Abrir el nombre del archivo como salida número 1
Trabaja escribiendo datos abiertos. texto en el espacio 1.
Para cada tpList en ListView1. Listar elementos
Realice las siguientes operaciones para cada elemento de la lista en ListView1.
Imprimir número 1, tpList. Texto
Escribe el atributo de texto del elemento de la lista en el archivo.
Para i = 1 a 4
Imprime el número 1, tpList. Subelemento (1)
Bucle para escribir los valores de los cuatro atributos del subelemento del elemento de la lista en el archivo.
Siguiente yo
Siguiente tpList
Cerrar #1
Cierra el archivo guardado cuando termines.
Conector final