cerrar un form y que al reabrirlo este lo que escribi en un text

[metroix]

es eso como aria osea si escribo hola en un text y cierro el programa luego abro nuevamente el programa este hay el hola que escribi ?

[Ther0x]

lo guardas en un archivos de texto. pones en el evento query unload del form:

Código:

open "c:\rada.txt" for output as #1
print #1, text1.text
close #1

y en el evento form load:

Código:

open "c:\rada.txt" for input as #1
line input #1, text1.text

me parece que sería asi...



salu2

[metroix]

no man me sale un error en esta parte

Código:

open "c:\rada.txt" for input as #1
line input #1, text1.text

me dice
Compile error:
Variable required - cant assgign to this expression
y me senala esta parte text1.(text) me senala el text :S

[ziBboh]

Lo puedes hacer de la manera que te dio rada (ojo falta el Do While Loop) o añadiendo a X Clave del Editor de Registro de Windows X registros con X cadenas de texto y que al cargar el Form, lea estas cadenas y su contenido lo pase a los TextBox.

A mi parecer las 2 maneras tienen desventajas, ya que al crear un archivo y se borra se pierde X informacion y si se añaden los registros y despues lo lee, solo funcionaran en la pc que se añadieron estos.

Si tienes alguna duda, contactame y tratare de ayudarte.

[jackl007]

Esto guarda el archivo

Código:

Open "C:/ texto.txt" For Output As #1
        Print #1, Text1.Text
Close #1

... esto lo lee:

Código:

On Error Resume Next
    Ficheropath = "C:\texto.txt"
    Open Ficheropath For Input As #1
    Text1.Text.Text = Input(LOF(1), #1)
    Close #1

[-SharK_90-]

no man me sale un error en esta parte

Código:

open "c:\rada.txt" for input as #1
line input #1, text1.text

me dice
Compile error:
Variable required - cant assgign to this expression
y me senala esta parte text1.(text) me senala el text :S

Te aparece un error porque al código le falta:

Close #1

Quedaaría asi:

open "c:\rada.txt" for input as #1
line input #1, text1.text
Close #1

SALU2

[Ther0x]

tienes razón, me faltó el close xDDD

lo que me hace gracia es que solo te has dado cuenta tu de ese error tan simple


salu2

[metroix]

lol todas las formas que me an dao no me sirven XD o no ase naa o me da error ejemplo lo de rada me sigue dando error y ya le puse el close #

Código:

open "c:\rada.txt" for output as #1
print #1, text1.text
close #1

y el que me dejo jackl007 no ase naa me crea el text pero no me guarda nada adentro

[Microchip]

Código:

Private Sub Command1_Click()
Dim Arch As String
            Dim ArN As Long
                 
            Arch = "C:\1.txt"
            ArN = FreeFile()
                     
            Open Arch For Output As #ArN
                        Print #ArN, Text1.Text
            Close #ArN
End Sub

Private Sub Form_Load()
Dim Cad
    nA = FreeFile
    Open "C:\1.txt" For Input As nA
    Input #nA, Cad
    Close nA
    Text1.Text = Cad
End Sub

Necesitas un Button y un TextBox nada mas y hara lo que pides

[jackl007]

y el que me dejo jackl007 no ase naa me crea el text pero no me guarda nada adentro

no carga xq he colocado "C:/ texto1.txt"
es sin espacio...
asi: "C:/text1.txt"
..
sorry