Bonjour tout le monde,

Je sollicite votre aide concernant l'utilisation de richtextbox. J'ai fais une fonction qui doit changer la couleur d'une partie de mon texte dans ma RTB :
ma fonction :

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
Public Function changecouleur(ByVal rtb As RichTextBox, ByVal chaineatrouver As String, ByVal Lcolor As System.Drawing.Color)
 
Dim longeurchaine As Integer = Microsoft.VisualBasic.Len(chaineatrouver)
Dim debutchaine As Integer = rtb.Find(chaineatrouver, RichTextBoxFinds.MatchCase)
'on fait un saut de ligne pour les prochaines lignes
rtb.Text = rtb.Text & vbCrLf
rtb.Focus()
'on selectionne la chaine a colorier
rtb.Select(debutchaine, longeurchaine)
rtb.SelectionColor = Lcolor
rtb.DeselectAll()
'on place le curseur a la fin
rtb.SelectionStart = rtb.Text.Length
 
End Function
Jusque là ca va, quand je fais appel a ma fonction ca marche j'ai mon texte en couleur, mais si j'appel a nouveau ma fonction avec un nouveau texte, seul cette nouvelle chaine est colorée. L'autre revient en noire.
Avez vous des idées sur le pourquoi du comment?
Merci d'avance.