¿Cómo genera VB los caracteres ingresados en un archivo de texto TXT a través del cuadro de entrada?
'Lista de control: un cuadro de texto y un control de reloj
Opción explícita
Cantidad pública como entero 'Define una variable global para almacenar el número de palabras
'Este proceso obtiene la cantidad de palabras en el cuadro de texto. También puedes simplificar este proceso al proceso de detección de pulsaciones de teclas. Escribe un proceso más y podrás aprender más cosas básicas.
Private Sub Text1_Change()
Cantidad = Len(Text1.Text)
End Sub
'Detecta si la clave ingresada en el cuadro de texto es la tecla Enter
'** **************************************** *********** **********************
'Nota: Es necesario determinar si existe el archivo de detección en este proceso. para ser referenciado en el proyecto: Microsft Scripting runtime
'Simplemente haga clic en Referencia en el menú del proyecto y marque la opción Microsft Scripting runtime en la ventana emergente
'****************** ********************************** ****************** *******
Subtexto privado1_KeyPress(KeyAscii como entero)
Atenuar archivo como Nuevo FileSystemObject
Si KeyAscii = 13 Entonces 'Si se devuelve la llave del coche
Si no, file.fileexists("d:\123.txt") Luego 'Comprueba si el archivo a ser guardado existe
File.CreateTextFile ("d:\123.txt") txt") 'Si el archivo no existe, créelo. El nombre del archivo entre comillas dobles puede modificarlo usted mismo, pero las tres rutas y nombres de archivos deben ser consistentes durante este proceso
End If
If cantidad gt 5 Then 'Verifique el número de palabras, este número 5 se puede modificar a su gusto; propio número
Abra "d:\123.txt" para agregar como n.° 1 'Abra el archivo y agregue al final el texto
Imprima n.° 1, ahora amp " " amp; ; Text1.Text 'Datos adicionales, aquí está el contenido del cuadro de texto de dos espacios de tiempo
Cerrar #1 'Cerrar el archivo
Text1.Text = "" 'Borrar el cuadro de texto después de guardar el archivo
Text1.SetFocus 'Vuelve a enfocar el cuadro de texto y espera la entrada
Else 'Si el número de palabras no es suficiente
Text1 .SelStart = Len(Text1.Text) 'Los datos no se guardarán, el contenido original del cuadro de texto permanecerá sin cambios y el cursor se colocará nuevamente al final del contenido del cuadro de texto
Text1. SetFocus 'Devuelve el foco al cuadro de texto y espera a que continúe la entrada
End If
End If
End Sub
' El programa se ejecuta Al borrar el cuadro de texto, coloque el foco en el cuadro de texto y espere la entrada. La razón por la que se utiliza el control de tiempo es porque LOAD no admite la operación SetFocus del cuadro de texto
Privado. Sub Timer1_Timer()
Text1.Text = "" 'Texto
Borre este cuadro
Text1.SetFocus 'Centrarse en el cuadro de texto
Timer1.Enabled = False 'Detiene el control de tiempo para lograr un efecto de operación única.
End Sub
Soy vago con el código anterior. He omitido la selección del directorio y las indicaciones porque la cantidad de palabras no es suficiente. Puedes modificarlo tú mismo. Todas son cosas básicas en VB6. Te recomiendo un tutorial de programación en Visual Basic Versión 6.0, un tutorial básico sobre VB, incluye todo lo anterior.