1
uso VB6 para crear un nuevo proyecto seleccionando "EXE estándar " en la lista de plantillas al abrir VB6 . Para demostrar el proceso de escritura de archivos, crear un formulario para recoger la información de correo, que luego va a escribir un archivo de libreta de direcciones . Utilice la opción " Herramientas " en la columna izquierda para agregar etiquetas , cuadros de texto y controles CommandButton a la visualización de la forma de recoger la información necesaria y escribir el archivo .
2
Añada cinco etiquetas al formulario , haga doble clic en la "A" mayúscula en la caja de herramientas en cinco ocasiones. Cada etiqueta incluye la anterior para hacer clic y arrastrar uno a la vez, colocando la parte superior Etiqueta en la parte inferior izquierda de la forma y la etiqueta de cada éxito por encima de la anterior . Repita este proceso para agregar cinco cuadros de texto del cuadro de herramientas , haga doble clic cinco veces en el pequeño icono cuadrado que contiene las letras minúsculas " ab ". En el formulario, haga clic y arrastre una a la vez a la derecha de las etiquetas , alineando cada uno con su juego de etiquetas. Nota: Es probable que tenga que ampliar la forma ligeramente usando las asas de arrastre, pequeños cuadrados en las esquinas y mitad de la parte superior e inferior de la forma
3
Añada tres botones de comando al formulario . doble clic en el pequeño rectángulo en la caja de herramientas encuentra directamente debajo del icono Label tres veces. Arrastre el primero por encima de la primera etiqueta y cuadro de texto . Arrastre los otros dos horizontalmente por debajo de las etiquetas y cuadros de texto . Haga clic en cada control para mostrar sus propiedades a la derecha, y cambiar las propiedades de " Leyenda ", que comienzan con Label1 como abajo, pero no inserte las comillas :
Cambio Label1 epígrafe de " Name"
< p > Cambiar Label2 título a " Street"
Cambio Label3 título de " Ciudad "
Cambio Label4 título a " Estado "
Cambio Label5 título a " ZIP"
Eliminar las propiedades " texto" de los cinco cuadros de texto de la misma manera .
4
Cambiar el valor predeterminado " Leyenda " de los tres CommandBoxes "Crear archivo", " Guardar registro " y " Salir ". Haga clic en " Ver ", "Código" en el menú de VB6 superior para abrir la ventana de código . Escriba las líneas siguientes exactamente como aparecen :
WriteFile Pública As String
Private Sub Command1_Click ()
WriteFile = InputBox ("Escriba un nombre de archivo para escribir en el formato de disco : \\ carpeta \\ nombreDeArchivo.txt " )
WriteFile abierto para la salida como # 1
Close # 1 End Sub
5
Agregar el siguiente código debajo del código en el Paso 4 :
Private Sub Command2_Click ()
WriteFile abierto para Append Como # 2
Write # 2 , Text1.Text ; texto2. Text; Text3.Text ; Text4.Text ; Text5.Text
Close # 2
Text1.Text = ""
Text2.Text = ""
< p> Text3.Text = ""
Text4.Text = " "
Text5.Text = ""
Text1.SetFocus
End Sub
6 Pulse
"F5 " para ejecutar el programa. Haga clic en el botón " Crear archivo " e introduzca una ubicación y nombre de archivo . Rellene el formulario y haga clic en " Guardar registro ". Repita el proceso para agregar algunos registros más. Salga del programa y busque el archivo en el PC donde se creó . Abrir con el Bloc de notas de Windows para ver los resultados. Cambiar el comando " Write" en el código de "imprimir" y ejecute el programa de nuevo. Re - abierto con WordPad para ver la diferencia entre los dos métodos de escritura de archivos.