Rich text box et selcolor??

Question

Slt mon niveau vb est pas a la hauteur de la question, mais je merde a fond avec l utilisation du Rich Text Box et selcolor

Private Sub Command1_Click()
pos = Len(RTB.Text)
RTB.Text = RTB.Text & "A" & vbCrLf
RTB.SelStart = pos
RTB.SelLength = 1
RTB.SelColor = vbGreen

pos = Len(RTB.Text)
RTB.Text = RTB.Text & "B" & vbCrLf
RTB.SelStart = pos
RTB.SelLength = 1
RTB.SelColor = vbRed
End Sub

Je voudrais que ca ecrit le A en vert et le B en ROuge mais ce code ecrit tous les caractére en vert et le dernier B en rouge?? et je comprend pas alors qi qq peu m'aider. c'est dans le but de faire un chat pour distingué les ligne envoyé et recus????

cs_DARKSIDIOUS · Answer

Salut pcpunch, ce bug du richtextbox est bien énervant en effet ! J'ai eu le même problème lors du développement de ProgOtoP API Viewer !

Le solution : désélectionner le texte avant de recommencer un SelColor et redéfinir la couleur de sélection en noir par exemple !

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Shark-Man · Answer

Salut,

donc si j'ai bien compris :

With RTextBox

    'on colore le mot qu'on veut

    .SelStart = DebutMot

    .SelLenght = LongueurMot

    .SelColor = CouleurMot

    'on revient au d&#233;but

    .SelStart = 0

    .SelColor = CouleurInitiale

End With



Et on recommence ?

C'est pourtant ce que je fais mais lorsque je rajoute du texte, le reste de la rtb prend la couleur du dernier mot color&#233;..

:$

Merci d'avance.




&#176; The world is moving so fast these days that the person who says it can't be done is generally interrupted by someone doing it &#176; Harry Emerson Fosdick

Rich text box et selcolor??

2 réponses

Discussions similaires