Sauver RichtextboxRésolu

Question

Bonjour, 
J'ai un problème avec la sauvegarde du contenu d'une richtextbox Voici mon code 
RichTextBox1.Text = "Mes données a sauver"
                Dim saveFile1 As New SaveFileDialog()
                saveFile1.DefaultExt = "*.rtf"
                saveFile1.Filter = "RTF Files|*.rtf"
                saveFile1.FileName = "Monfichier.rtf"
                If (saveFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK)  _
And (saveFile1.FileName.Length > 0) Then
                    RichTextBox1.SaveFile(saveFile1.FileName)
                End If

Le fichier est bien créé mais il fait 0 k et il est vide 
. J'ai raté quelque chose ?

cs_Le Pivert · Answer

Bonjour,
comme ceci:
Imports System.IO
 If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            ' on récupère le nom du fichier
            Dim nomFichier As String = SaveFileDialog1.FileName
            Dim fichier As IO.StreamWriter = Nothing
            Try
                ' on ouvre le fichier en écriture
                fichier = New IO.StreamWriter(nomFichier)
                ' on écrit le texte dedans
                fichier.Write(RichTextBox1.Text)
            Catch ex As Exception
                ' problème
                MessageBox.Show("Problème à l'écriture du fichier (" + ex.Message + ")", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return
            Finally
                ' on ferme le fichier
                Try
                    fichier.Close()
                Catch
                End Try
            End Try
        End If

Gildeplomb · Answer

Merci le pivert
C'est toujours un plaisir de venir sur ce forum

Sauver Richtextbox

2 réponses

Votre réponse

Discussions similaires