Si alguien sabe hacerlo me seria de increible ayuda

| |||
Guardar datos de un Tetxbox Hola, necesito saber como se hace para guardar los datos ingresados en un textbox. es decir, ejecuto el programa, escribo "HOLA" en un textbox, lo cierro, y quiero que cuando lo abra aparezca ese "HOLA". Si alguien sabe hacerlo me seria de increible ayuda ![]() |
| ||||
Respuesta: Guardar datos de un Tetxbox Cita: Puedes guardarlo en un archivo de texto:
Código:
Private Sub Form_Load() On Error Resume Next Dim GetData As String Close 'Abrimos el archivo File.txt y leemos la primera línea Open AppPath & "File.txt" For Input As #1 Line Input #1, GetData Close 'Colocamos el contenido del archivo en Text1 Text1.Text = GetData End Sub Private Sub Form_Unload(Cancel As Integer) Close 'Guardamos el contenido de Text1 en File.txt Open AppPath & "File.txt" For Output As #1 Print #1, Text1.Text Close End Sub 'Obtenemos la ruta del programa Function AppPath() As String ChDir App.Path ChDrive App.Path AppPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") End Function
__________________ Por favor, antes de preguntar, revisa la Guía para realizar preguntas. |