Couleur de ligne dans Richtextbox [Résolu]

jolatripe 8 Messages postés lundi 18 juillet 2005Date d'inscription 8 septembre 2008 Dernière intervention - 19 juil. 2005 à 10:02 - Dernière réponse : BasicInstinct 1471 Messages postés mardi 5 février 2002Date d'inscription 20 octobre 2014 Dernière intervention
- 19 juil. 2005 à 11:21
Je sais que le sujet a deja ete abordé maintes fois. Pourtant je comprends pas ce qui cloche dans mon code.
Vu que j'é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écé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
Afficher la suite 

3 réponses

BasicInstinct 1471 Messages postés mardi 5 février 2002Date d'inscription 20 octobre 2014 Dernière intervention - 19 juil. 2005 à 10:50
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
jolatripe 8 Messages postés lundi 18 juillet 2005Date d'inscription 8 septembre 2008 Dernière intervention - 19 juil. 2005 à 11:06
0
Utile
merci
effectivement la ca marche bien et c'est plus simple.
mais pkoi moi ca marchait pas
BasicInstinct 1471 Messages postés mardi 5 février 2002Date d'inscription 20 octobre 2014 Dernière intervention - 19 juil. 2005 à 11:21
0
Utile
parce ce que tu réé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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.