Guardar Un Texto En Visual Basic.-

[onelar]

HOLA AMIGOS:

Una pequeña duda que agradecería que me aclaraseis.

Tengo un textbox en blanco, y quiero que al escribir un texto en el, poner un botón para que guarde ese texto, y la próxima vez que habla la aplicación tenga ya el texto escrito, hasta que me interese cambiarlo y vuelva a darle al botón.

Se puede hacer, y si es así como sería el códogo?

MUCHAS GRACIAS POR VUESTRO TIEMPO.

[ssev13]

Tenés dos opciones o guardas el texto en una base de datos o en un archivo de texto y lo recuperas cada vez que inicia el sistema.
Tal vez quieras ver el activex RichTextBox de Microsoft. Es muy bueno para manejar texto.

[hmtech]

hola

si es en un arhivo prueva esto para guardar:


Private Sub mnusave_Click()

On Error GoTo cancelar 'en caso de que halla un error ir a cancelar

Dim archivo As String 'declarar una variable para identificar 'el nonbre del archivo




archivo = "c:\ubicacion del archivo"

Open archivo For Output As #1 'sintax para guardar una archivo
'open nombre_archivo for tipo as numero el cual se va a
'conocer en el codigo el archivo abierto

Print #1, Text1.Text + vbCrLf 'anadimos lo que queremos en el archivo
'vbCrlf = orden del archivo quedara acomodado tal como
'esta en el textbox

Close 'cerramos el archivo

cancelar: 'accion que va a tomar si hay algun error.

End Sub

para cargar el archivo:

Private Sub mnuopen_Click()

On Error GoTo cancelar 'si hay algun error ir a cancelar

Dim archivo As String 'decalramos la variable para identificas el nombre del archivo

Dim cadena As String ' declaramos la variable para identificar el contenido del archivo


Text1.Text = " " 'borramos el contenido del textbox

archivo = "c:\ubicacion del archivo"

Open archivo For Input As #1 'sintaxd de guardar
While Not EOF(1)

Line Input #1, cadena 'llamamos el contenido del archivo

Text1.Text = Text1.Text + cadena + vbCrLf 'introducimos el contenido al textbox

Wend

Close 'cerramos el archivo

cancelar: 'escribimos el codigo de lo que queremos que haga si hay un error.
End Sub

saludos
hmtech

[boutroux]

te recomiendo que mejor guardes en el registro de windows

cuando cargues el formulario pones

text1.text = GetSetting(appname, section, key[, default])


y para guardar

SaveSetting appname, section, key, text1.text


ojala te sirva....