| Pregunta: | 56257 - COMO GUARDO LO ULTIMO QUE PUSE EN UN TEXTBOX |
| Autor: | Rodrigo Villalba |
| Quiero que cuando vuelva a ejecutar la aplicacion este lo ultimo que escribi en el textbox aclaro, lo que escribi en tiempo de ejecucion Como hago?, Gracias | |
| Respuesta: | Rolando Moreno |
| Yo te propongo mejor guardar esa información en el registro de windows, puedes crear las claves que necesites y las tienes en todo momento disponibles para leerlas o modificarlas... Porque no necesariamente debes cerrar el sistema para poder leer lo último que escribiste, sino que también se podría cerrar solo este form y volverlo abir. Espero que mi sugerencia te sirva de algo Saludos desde Ecuador | |
| Respuesta: | Juan Carlos Martínez López |
| Hola Rodrigo lo que puedes hacer es al salir guardar lo que tienes en ese textbox en un archivo plano (txt), este es el codigo para hacer esto /* Aca el archivo lo cree en C: y lo llame TextBox.txt este es el codigo que va cuando salis del formulario para que se guarde en el archivo lo que pusiste en tu textbox /* primero verificamos si existe para modificar su contenido o sino existe lo creamos */ If File.Exists("C:TextBox.txt") Then Dim myStreamWriter As StreamWriter Try ' Aca modificamos lo que tenemos ' en nuestro archivo de texto actualmente myStreamWriter = File.CreateText("C:TextBox.txt") ' Y lo que tenemos en el textbox lo mandamos a escribir ' al archivo plano, mi textbox se llama tbLinea.Text myStreamWriter.Write(tbLinea.Text) myStreamWriter.Flush() Catch exc As Exception MsgBox(exc.Message) Finally ' aca cerramos el archivo cuando haya sido creado. If Not myStreamWriter Is Nothing Then myStreamWriter.Close() End If End Try Else Dim oSW As New StreamWriter("C:TextBox.txt") ' Aca creamos nuestro archivo por primera vez si ' no existe Dim Linea As String = tbLinea.Text oSW.WriteLine(Linea) oSW.Flush() End If ' Cerramos el formulario Me.Close() /* Luego este codigo que viene te sirve para mostrar lo que escribiste en tu textbox antes de salir del formulario */ ' Aca se crea un Stream para leer todo lo que tiene ' nuestro archivo de texto Dim myStreamReader As StreamReader Try ' Le decimos que abra el archivo de la ruta que le pasamos myStreamReader = File.OpenText("C:TextBox.txt") ' y por ultimo le decimos que lo lea hasta el final ' y que esto lo desplegue en el textbox en el que deseamos ' mostrarlo tbLinea.Text = myStreamReader.ReadToEnd() Catch exc As Exception MsgBox(exc.Message) Finally If Not myStreamReader Is Nothing Then myStreamReader.Close() End If End Try Bueno asi es la manera mas viable que veo para guardar lo que tienes en tu textbox sin usar una base de datos. Si tienes dudas escribime al correo y te respondo Suerte hermano! | |