hello

j'ai créé un petit bloc note avec une richtextbox
ou je peut écrire modifié le texte, seulement le problème c'est que il enregistre pas tout. par ex: sur mon texte, je met différente couleur je change la police je met les lettre en gras et quand j'enregistre en txt il n'enregistre pas toute ses modification quand je réouvre se texte il n'a pas garder les couleur, police, etc......
pourriez vous me dire se qu'il faut modifier dans mon code pour que sa marche ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
    Private Sub SauvegarderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SauvegarderToolStripMenuItem.Click
        Dim currentFile As Object
 
        SaveFileDialog1.Title = My.Application.Info.ProductName & " - Save File"
        SaveFileDialog1.DefaultExt = "Rtf"
        SaveFileDialog1.Filter = "RTF Files|*.rtf|Txt Files|*.txt|HTML Files|*.htm|All Files|*.*"
        SaveFileDialog1.FilterIndex = 1
        SaveFileDialog1.ShowDialog()
 
        If SaveFileDialog1.FileName = "" Then Exit Sub
 
        Dim strExt As String
        strExt = System.IO.Path.GetExtension(SaveFileDialog1.FileName)
        strExt = strExt.ToUpper()
 
        Select Case strExt
            Case ".RTF"
                RichTextBoxFR1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
            Case Else
                Dim txtWriter As System.IO.StreamWriter
                txtWriter = New System.IO.StreamWriter(SaveFileDialog1.FileName)
                txtWriter.Write(RichTextBoxFR1.Text)
                txtWriter.Close()
                txtWriter = Nothing
                RichTextBoxFR1.SelectionStart = 0
                RichTextBoxFR1.SelectionLength = 0
        End Select
 
        currentFile = SaveFileDialog1.FileName
        RichTextBoxFR1.Modified = False
        Me.Text = My.Application.Info.ProductName & " : " & currentFile.ToString()
    End Sub