Discussion :

[sergelagier]

Bonsoir

j'essaye de mettre en gras une partie de texte dans un RichTextBox mais malgré la sélection de mon texte, j'ai l'intégralité du texte du RichTextBox en gras. Pourquoi ?

Voici le bout de code où je veux mettre en gras la partie de texte "PhraseTitre" présent dans le texte de mon RichTextBox rtb :

Code :

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

1
2
3
4
5
6
7
Dim FontTitre As New Font(rtb.Font.Name, rtb.Font.Size, FontStyle.Bold)
Dim Pos1 As Long = InStr(rtb.Text, PhraseTitre)
If Pos1 <> 0 Then
        CType(rtb, RichTextBox).SelectionStart = Pos1 - 1
        CType(rtb, RichTextBox).SelectionLength = Len(PhraseTitre)
         CType(rtb, RichTextBox).SelectionFont = FontTitre
End If

J'ai mis le SelectionStart à Pos1-1 car à Pos1 il ne prend pas la première lettre de PhraseTitre.

Merci pour votre aide.
Cordialement

[gta126]

Bonjour à vous,

J'ai tester chez moi en utilisant les mêmes méthodes que vous et cela fonctionne.

Essayer peut être en changeant

Code :

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

1
2
3
CType(rtb, RichTextBox).SelectionStart = Pos1 - 1
        CType(rtb, RichTextBox).SelectionLength = Len(PhraseTitre)
         CType(rtb, RichTextBox).SelectionFont = FontTitre

par ceci

Code :

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

1
2
3
rtb.SelectionStart = Pos1 - 1
        rtb.SelectionLength = Len(PhraseTitre)
         rtb.SelectionFont = FontTitre

êtes-vous certain que Pos1 vaut une valeur suppérieure à 0 ?

Dans mon test, j'ai utilisé

Code :

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

rtb.Text.IndexOf(PhraseTitre)

mais je pense que c'est pareil que ce que vous faites.

P.S.: Pour votre variable Font vous pouvez utiliser le constructeur spécifique à ce que vous souhaitez faire (ceci ne changera rien à votre code bien entendu mais vous permet d'utiliser un raccourci lorsque vous souhaitez juste passer en gras, italique, etc)

Code :

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

Dim FontTitre As New Font(rtb.Font.Name, FontStyle.Bold)

[sergelagier]

Merci pour votre réponse complète, mais mon soucis c'est que PhraseTitre se retrouve plusieurs fois dans le RichTextBox et en particulier en première position.
Donc pour la première occurrence, si je mets Pos1=0, tout le texte du RichTextBox se retrouve en gras, mais si je mets Pos1=1, là, le premier PhraseTitre est en gras uniquement à partir de la deuxième lettre et pas l'intégralité : PhraseTitre.
Comment faire ?
Merci encore.

[gta126]

Voici une solution lorsque phraseTitre est répété plusieurs fois dans le texte.

En csharp

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
string phraseTitre = "tu";
            Font fontTitre = new Font(richTextBox1.Font, FontStyle.Bold);
            int pos1 = -1;
 
            do
            {
                pos1 = richTextBox1.Text.IndexOf(phraseTitre, pos1 + 1);
 
                if (pos1 >= 0)
                {
                    richTextBox1.SelectionStart = pos1;
                    richTextBox1.SelectionLength = phraseTitre.Length;
                    richTextBox1.SelectionFont = fontTitre;
                }
            } while (pos1 >= 0);

et en VB (il y a peut-être des erreurs de syntaxe n'ayant plus fait de VB depuis un moment)

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
phraseTitre As string = "tu";
            fontTitre as new Font(richTextBox1.Font, FontStyle.Bold);
            pos1 as Integer = -1;
 
            do
            {
                pos1 = richTextBox1.Text.IndexOf(phraseTitre, pos1 + 1);
 
                if (pos1 >= 0)
                {
                    richTextBox1.SelectionStart = pos1;
                    richTextBox1.SelectionLength = phraseTitre.Length;
                    richTextBox1.SelectionFont = fontTitre;
                }
            } while (pos1 >= 0);

[sergelagier]

Merci pour votre aide mais hélas même avec votre code le problème demeure.
Si Pos1=0 tout le texte est en gras, et si Pos1=1 la première lettre du mot n'est pas en gras.
Mystère ??!
Merci quand même.

[gta126]

Je viens d'essayer votre code en Visual Basic en mettant phraseTitre = "tu" et avec ce texte:

Code :

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

1
2
3
tu es là ?
ca va et tu va venir ?
coucou tu va

sans rien changer d'autre à votre code et cela fonctionne il met bien en gras juste le premier tu du texte sans rien mettre d'autre en gras.

Avez-vous essayé ce code de manière isolée ou celui-ci se trouve parmi d'autre lignes de code ?

[sergelagier]

Voilà j'ai résolu le problème.
Après avoir effectivement constaté que le code de gta126 fonctionnait, je me suis rendu compte que j'avais oublié d'indiquer que dans mon RichTextBox je rajoutais des phrases au fur et à mesure. Lors de la mise en place du texte initial avec une seule phrase, tout fonctionnait. Mais c'est après le rajout des phrases supplémentaires que le style Bold s'appliquait alors à l'ensemble du RichTextBox. Comme si le SelectionFont restait appliqué mais non plus à la selection mais à l'ensemble du texte.
Alors à chaque fois, avant de rajouter une phrase supplémentaire, je fais :

Code :

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

1
2
3
Rtb.SelectionStart = 0
Rtb.SelectionLength = Rtb.Text.Length
Rtb.SelectionFont = FontInitial

puis à nouveau je recherche tous les PhraseTitre dans Rtb en appliquant FontTitre.

Merci en tout cas à gta126 pour son aide précieuse.

[gta126]

Heureux d'avoir pu vous aider.

Bonne journée à vous et bonne programmation