Bonjour à vous,
J'ai tester chez moi en utilisant les mêmes méthodes que vous et cela fonctionne.
Essayer peut être en changeant
1 2 3
| CType(rtb, RichTextBox).SelectionStart = Pos1 - 1
CType(rtb, RichTextBox).SelectionLength = Len(PhraseTitre)
CType(rtb, RichTextBox).SelectionFont = FontTitre |
par ceci
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é
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)
Dim FontTitre As New Font(rtb.Font.Name, FontStyle.Bold)
Partager