agenda en visual estudio

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 seguirpara 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ónpara 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 enla 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 ysiguiente, 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 = txtApellido  
50.     .Telefono = txtTelefono.Text  
51.     .Nota = txtNota.Text  
52.     .Mail = Trim(txtMail)  
53.   
54. End With  
55.   
56. 'Escribimos los datos en el archivo y en la posición  
57. Put #FileFree, RegActual, Datos  
58. End Sub  
59.   
60....