Discussion :

[The eye]

Bonjour,

je cherche à mettre une chaine de caractère (une partie seulement) en gras mais je n'y arrive pas (bon j'ai pas essayé des heures non plus c pas vital pour mon appli...).

J'aimerais faire un truc du style :

maRixhTextBox.text = "texte pas en gras " & "texte en gras" & "texte pas en gras"
Mais si quelqu'un connait l'astuce je suis preneur!

NOTE: mon texte ce trouve dans une richTextBox, Merci

[Aspic]

En passant par le rtf ca ne marche pas ?

[smyley]

Le rtf doit marcher et si tu ne sais pas comment t'en servir crée le texte avec WordPad, enregistre en rtf, et ouvre le fichier avec Notepad pour voir le code rtf. Ensuite tu assignes ce texte au richTextBox avec la propriété RtfText

[The eye]

j'ai essayé de faire ce que tu dis mais qd je veux enregistrer au format rtf l'application prompt ceci :


"vous etes sur le point d'enregistrer le document sous un format texte, ce qui supprimera tout le formatage. Voulez-vous vraiment faire cela?"

Que je réponde "oui" ou "non" le fichier enregistré ouvert avec le bloc note ne contient rien d'autre que le texte....

[smyley]

Quand tu enregistres avec WordPad, dans la boite d'enregistrement y'a une case Nom et une autre Type. Dans type tu choisis "Document RTF" .....

[Aspic]

Suffit de chercher sur google c'est pas difficile :
http://fr.wikipedia.org/wiki/Rich_Text_Format

[smyley]

Oui mais dans ce cas il faut faire attention à ce que le texte que l'on mette après les balises RTF ne soit pas lui même, accidentellement, un code RTF

[Aspic]

Oui mais dans ce cas il faut faire attention à ce que le texte que l'on mette après les balises RTF ne soit pas lui même, accidentellement, un code RTF

ca va de soit

[The eye]

Le code RTF de marche pas...

Quelle est le nom de la propriété d'une richTextBox qui permet de rendre le texte interprétable?

[smyley]

Boulette, c'est pas RtfText mais Rtf :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
richTextBox1.Rtf = @"{\rtf
 Bonjour
 \par
 Ceci est
 un petit {\b texte}.
 \par
 FIN
}";

[The eye]

Ok ça a marché... mais pas comme je voulais.

En effet impossible d'incruster du Rtf au milieu du texte... donc je ne peux pas avoir un mot en gras perdu au milieu de mon texte

Voici ma fonction, txtLog est ma richTextBox, et j'aurais aimé avoir 1 ou plusieurs caractères de ma chaîne S en gras....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub mLog(ByVal s As String)
        Me.txtLog.Text = Me.txtLog.Text & vbCrLf & s
        Application.DoEvents()
End Sub

j'ai essayé comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub mLog(ByVal s As String)
        Me.txtLog.Rtf = Me.txtLog.Rtf & vbCrLf & "{\rtf" & s & "}"
        Application.DoEvents()
End Sub

mais ça donne rien....

[smyley]

Tu aurais du le dire plus tot
Une solution consiste à utiliser la sélection du texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
richTextBox1.Text = "Je suis un petit chat";
            richTextBox1.Select(3, 4);
            richTextBox1.SelectionFont = new Font("Arial", 22);
            richTextBox1.DeselectAll();

En sélectionnant ainsi ce que tu veux tu peut à chaque fois changer la police, mais aussi la couleur de la sélection, etc ...

[The eye]

j'ai remplacé ma fonction par

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
 
Private Sub mLog(ByVal s As String, Optional ByVal boldSize As Integer = 0)
        If s.Contains("#") Then
            Dim start As Integer
            start = Me.txtLog.Text.Length + s.IndexOf("#")
            Me.txtLog.Select(start, start + boldSize)
            Me.txtLog.SelectionFont = New Font(Me.txtLog.Font.Name, 22)
            s = s.Replace("#", "")
            Me.txtLog.Text = Me.txtLog.Text & vbCrLf & s
            Me.txtLog.DeselectAll()
        Else
            Me.txtLog.Text = Me.txtLog.Text & vbCrLf & s
        End If
        Application.DoEvents()
End Sub

Mais me.txtLog.SelectedText reste toujours vide

Je ne vois pas pourquoi, j'ai pourtant bien testé les valeurs des variables start, select ..etc

[smyley]

Il faut assigner le texte au richTextBox AVANT de jouer avec la sélection

[The eye]

Non car si je remplace select par selectall ça marche...

Si j'utilise la fonction select avec des int en dur (par exemple .select(1, 100)
le selecttedText est bien remplie comme il faut mais la police ne change pas!

Si je passe en paramètre des variables..mm correctement remplies... le variable Me.txtLog.selectedText est de nouveau null

j'ycomprends vraiment rien!!

Essayes de faire un petit programmes qui appelerait ma fonction plusieurs fois pour t'en rendre compte! J'y perd mon latin!