Sauver Richtextbox [Résolu]

Signaler
Messages postés
102
Date d'inscription
samedi 29 décembre 2012
Statut
Membre
Dernière intervention
24 mars 2021
-
Messages postés
102
Date d'inscription
samedi 29 décembre 2012
Statut
Membre
Dernière intervention
24 mars 2021
-
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 ?

2 réponses

Messages postés
7421
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 juin 2021
124
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

Messages postés
102
Date d'inscription
samedi 29 décembre 2012
Statut
Membre
Dernière intervention
24 mars 2021

Merci le pivert

C'est toujours un plaisir de venir sur ce forum