Changement de couleur dans un richtextBox

Question

Je developpe un appli qui effectue des test et qui ecrit dans un rtf le diagnostique suite au test en question.
A chaque test, on peut etre bon, moyen ou pas bon.
Donc a chaque test ca ecrit une ligne de resultat avec une couleur correspondant au resultat vert orange ou rouge.
Le probl&#232;me c que a chaque nouvelle ligne de test ajout&#233;, la couleur des lignes pr&#233;c&#233;dentes est annul&#233;e.
je vous remets un bout de code simplifi&#233; (y a pas de test ca enchaine juste l'ecriture de ligne de couleurs diff&#233;rentes)

Private Sub button_Click()
diagno.SelColor = vbBlack
diagno.Text = ""


 


message = "zobby la mouche" & vbCrLf
diagno.Text = diagno.Text & message
diagno.SelStart = Len(diagno.Text) - Len(message)
diagno.SelLength = Len(message)
diagno.SelColor = vbRed


 


message = "turlute" & vbCrLf
diagno.Text = diagno.Text & message
diagno.SelStart = Len(diagno.Text) - Len(message)
diagno.SelLength = Len(message)
diagno.SelColor = vbYellow


 


message = "toto en string" & vbCrLf
diagno.Text = diagno.Text & message
diagno.SelStart = Len(diagno.Text) - Len(message)
diagno.SelLength = Len(message)
diagno.SelColor = vbGreen


 


message = "VIVE LES SCHTROUMPFS" & vbCrLf
diagno.Text = diagno.Text & message
diagno.SelStart = Len(diagno.Text) - Len(message)
diagno.SelLength = Len(message)
diagno.SelColor = vbMagenta


 


End Sub

c tout simple y a une form1 avec un rtb qui s'appelle diagno et un boutton qui s'appelle button

merci 
ca doit etre tout con mais je debute

cs_Jack · Answer

Salut
C'est parce que tu fais   
diagno.Text = diagno.Text & message
Tu lui dit d'&#233;crire du texte basique, alors il r&#233;initialise tout, normal.
-1- Essaye en utilisant : 
diagno.RTFText = diagno.RTFText & message
( pas s&#251;r du RTFText, cherche)

-2- ou encore :
diagno.SelStart = Len(diagno.Text)
diagno.SelText = message
diagno.SelLength = Len(message)
diagno.SelColor = vbRed

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

Changement de couleur dans un richtextBox

1 réponse

Discussions similaires