Sauver Richtextbox [Résolu]

Gildeplomb 88 Messages postés samedi 29 décembre 2012Date d'inscription 29 mars 2018 Dernière intervention - 27 janv. 2017 à 10:30 - Dernière réponse : Gildeplomb 88 Messages postés samedi 29 décembre 2012Date d'inscription 29 mars 2018 Dernière intervention
- 27 janv. 2017 à 13:28
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 ?
Afficher la suite 

2 réponses

Répondre au sujet
cs_Le Pivert 5065 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 13 avril 2018 Dernière intervention - 27 janv. 2017 à 12:08
0
Utile
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

Commenter la réponse de cs_Le Pivert
Gildeplomb 88 Messages postés samedi 29 décembre 2012Date d'inscription 29 mars 2018 Dernière intervention - 27 janv. 2017 à 13:28
0
Utile
Merci le pivert

C'est toujours un plaisir de venir sur ce forum
Commenter la réponse de Gildeplomb

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.