Asunto: Guardar texto de un TextBox con Multiline en VB.Net 2010
Estoy desarrollando una aplicación sencilla en Microsoft Visual Basic .Net VB.Net, de Microsoft Visual Studio 2010. Tengo un componente de tipo TextBox, con la propiedad Multiline a True, para que el usuario pueda escribir lo que quiera en él.
Ahora quiero permitir al usuario guardar el contenido del TextBox en un ficheor y quiero que le aparezca un cuadro de diálogo para que elija dónde guardar el fichero, con qué nombre, con qué extensión, etc.
¿Cómo puedo guardar el texto de un TextBox Multiline en VB.Net a fichero? ¿Cómo se usa el SaveFileDialog en Visual Basic .Net?
Publicado:
Mar Mar 22, 2011 7:45 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Guardar texto de un TextBox con Multiline en VB.Net 2010
Anuncios
varios escribió:
Estoy desarrollando una aplicación sencilla en Microsoft Visual Basic .Net VB.Net, de Microsoft Visual Studio 2010. Tengo un componente de tipo TextBox, con la propiedad Multiline a True, para que el usuario pueda escribir lo que quiera en él.
Ahora quiero permitir al usuario guardar el contenido del TextBox en un ficheor y quiero que le aparezca un cuadro de diálogo para que elija dónde guardar el fichero, con qué nombre, con qué extensión, etc.
¿Cómo puedo guardar el texto de un TextBox Multiline en VB.Net a fichero? ¿Cómo se usa el SaveFileDialog en Visual Basic .Net?
Si agregas un SaveFileDialog con el nombre "dlGuardar" y un TextBox con el nombre txtTexto al formulario de tu aplicación, te mostramos un código fuente de ejemplo en Visual Basic .net VB.Net para guardar el contenido del TextBox en el fichero elegido por el usuario con el SaveFileDialog, además controlamos los posibles errores que se puedan producir e indicamos que se muestre un aviso si el usuario intenta guardar el contenido del TextBox en un fichero ya existente (OverwritePrompt):
Código:
dlGuardar.Filter = "Archivos de texto (*.txt)|*.txt|Todos (*.*)|*.*"
dlGuardar.FilterIndex = 1
dlGuardar.DefaultExt = "txt"
dlGuardar.FileName = "texto"
dlGuardar.OverwritePrompt = True
dlGuardar.Title = "Guardar TextBox en fichero"
If dlGuardar.ShowDialog Then
Try
Dim fichero As New StreamWriter(dlGuardar.FileName)
fichero.WriteLine(txtTexto.Text)
fichero.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + _
MsgBoxStyle.Exclamation)
End Try
End If
Como ves, también hemos añadido un filtro "Filter" para que muestre los archivos de texto *.txt o todos los archivos *.*.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A