couleur de ligne dans RichtextboxRésolu

Question

Je sais que le sujet a deja ete abord&#233; maintes fois. Pourtant je comprends pas ce qui cloche dans mon code.
Vu que j'&#233;cris mes lignes les unes apres les autres, je pensais que je pouvais choisir ma couleur avant sans rien selectionner puis ecrire mais ca ne marche pas.
alors j'ai ecris ce code mais ca ne marche pas non plus. Quand j'ecris une nouvelle ligne ca reinitialise la couleur des lignes pr&#233;c&#233;dentes.

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

BasicInstinct · Accepted Answer

ca marchera mieux comme ca

diagno.Text=""

message = "zobby la mouche" & vbCrLf
diagno.SelStart = Len(diagno.Text)
diagno.SelColor = vbRed
diagno.SelText = message
 
 
message = "turlute" & vbCrLf
diagno.SelStart = Len(diagno.Text)
diagno.SelColor = vbYellow
diagno.SelText = message
 
message = "toto en string" & vbCrLf
diagno.SelStart = Len(diagno.Text)
diagno.SelColor = vbGreen
diagno.SelText = message
 
message = "VIVE LES SCHTROUMPFS" & vbCrLf
diagno.SelStart = Len(diagno.Text)
diagno.SelColor = vbMagenta
diagno.SelText = message

 BasicInstinct

jolatripe · Answer

merci 
effectivement la ca marche bien et c'est plus simple.
mais pkoi moi ca marchait pas

BasicInstinct · Answer

parce ce que tu r&#233;&#233;cris tout le texte a chaque fois...
donc tu perds la mise en forme.

la logique, c'est de placer le cuseur la ou tu veux ecrire (ici a la fin)
diagno.SelStart = Len(diagno.Text)

tu choisis la police, couleur....
diagno.SelColor = vbGreen

puis tu ecris ton texte
diagno.SelText = message

 BasicInstinct

Couleur de ligne dans Richtextbox

3 réponses

Discussions similaires