Visual Basic Agenda Con Archivos Aleatorio

Agenda muy simple en Visual basic utilizando Ficheros de acceso aleatorio o también denominados Random , para almacenar los datos de los contactos de la Agenda.

Una vista del ejemplo:

Para manipular los datos se utiliza una estructura o UDT que tiene las siguientes variables:

Texto planoImprimir

1. ' Estructura para los datos de los contactos de la agenda

2. Private Type Contacto

3. Nombre As String * 40

4. Apellido As String * 50

5. Telefono As String * 40

6. Mail As String * 70

7. Nota As String * 250

8. End Type

Como se puede ver en la imagen, tiene una opción para buscar un registro y especificar por que campo buscar, ya sea por el nombre del contacto, el Apellido, el telefono o el correo electrónico.

________________________________________

Pasos a seguir para armar el formulario con los controles:

Agregar en un Formulario 6 controles TextBox con los siguiente nombres:

1. txtNombre

2. txtApellido

3. txtTelefono

4. txtMail

5. txtNota

6. txtBuscar

Luego agregar 7 CommandButton con los siguientes nombres:

1. CmdAnterior : Botón para ir al anterior registro

2. cmdSiguiente : Botón para ir al siguiente registro

3. cmdGuardar : Botón para guardar los cambios cuando se seleccionó previamente la opción Nuevo Registro

4. cmdEliminar: Elimina el registro actual

5. cmdNuevo : Añade un nuevo reg

6. cmdBuscar : Para buscar

7. Cmdsalir : Descarga el Form

Ahora, agregar un control ComboBox llamado Combo1. A este combo, establecerle en la propiedad Style el valor 2 ( DropDownList ) y agregarle los siguientes valores en la propiedad List: Nombre, Apellido, Telefono e Mail en ese orden

Nota: Para agregar datos en la propiedad List desde la ventana de propiedades, debes mantener la tecla Ctrl presionada y presionar la tecla Enter para añadir un nuevo dato o Item.

Por último, agregar un control Label llamado lblStatus que servirá para poder mostrar cuando nos desplazamos por los registros, con los botones anterior y siguiente, el número del registro actual y la cantidad de registros que hay en el archivo. Este Label lo puedes situar en la parte inferior del formulario o donde quieras.

Colocar el código fuente en el formulario:

Texto planoImprimir

1. Option Explicit

2.

3. 'Variables

4. '##################################################

5.

6. ' Estructura para los datos de los contactos de la agenda

7. Private Type Contacto

8. Nombre As String * 40

9. Apellido As String * 50

10. Telefono As String * 40

11. Mail As String * 70

12. Nota As String * 250

13. End Type

14.

15. 'Variables para utilizar la estructura anterior

16. Dim Datos As Contacto

17. Dim DatosTemp As Contacto

18.

19. 'Variables para el archivo de los datos de contacto y temporal

20. Dim FileFree As Integer

21. Dim FileTemp As Integer

22.

23. 'Variables para la posición del primer y último registro

24. Dim RegActual As Long

25. Dim RegUltimo As Long

26. ' Variable para la posición Temporal del registro

27. Dim RegActualTemp As Long

28.

29. Dim Pos As Integer, p As Integer

30.

31.

32.

33.

34. '######################################################

35. 'Funciones y procedimientos

36. '######################################################

37.

38.

39.

40. ' Subrutina que guarda los datos en el archivo

41. '#############################################

42.

43. Private Sub GuardarDatos()

44.

45. 'Asignamos los datos de la estructura con el contenido de los textBox

46. With Datos

47.

48. .Nombre = txtNombre.Text

49. .Apellido

...