Bonjour à tous. Voilà on me demande de faire évoluer une appli qui utilisait des TxtBox plutôt que des RichTextBox. J ecris donc une fonction qui converti le txt en rtf :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Shared Function TransformetxttoRtf(ByVal texte As String) As String
        Dim j As Integer = 0
        Dim resultat As String = ""
        For j = 0 To texte.Length - 1
            If Asc(texte.Chars(j)) = 10 Then
                resultat = resultat & "\par "
            Else
                resultat = resultat & texte.Chars(j)
            End If
        Next
        resultat = "{\rtf1\ansi " & resultat & " }"
        Return resultat
    End Function
Ailleurs j'écris

Code : Sélectionner tout - Visualiser dans une fenêtre à part
RichTextBox1.rtf = TextBox.text
Ca fonctionne s'il n'y a pas de caractères accentués, lorsque je transfert un texte contenant des accents d'une textbox vers une richtextbox avec ma fonction, la richtextbox ne peut plus être éditée... Je ne comprend pas pourquoi.

Je bloque depuis toute l'après midi, je commence à me décourager...

Merci.