Discussion :

[Ramdoulou]

Bonjour à vous

Alors voilà, je suis en train de développer un petit logiciel qui me sera utile une fois terminé.

Je suis juste bloqué pour un petit truc...

Apres avoir utilisé une partie de l'application, on récupère 2 mots.
Et je voudrai que lorsque l'on clique sur un de mes commandbutton, dans un texte affiché sous un RichTextBox, ces 2 mots soient repérés puis colorés en telle couleur.

Voilà, j'ai essayé différentes méthodes, mais à chaque fois je m'enmele les pinceaux car je vais chercher trop loin comme d'habitude...

Voili voilou, merci d'avance pour votre aide.

Pablo.

[ProgElecT]

Sur un Form 1 RichTextBox et 1 CommandButton

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
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Private Sub Form_Load()
RichTextBox1.TextRTF = ""
RichTextBox1.Text = "Essai pour ROUGE" & vbCrLf & "Essai pour BLEU"
End Sub
 
Private Sub Command1_Click()
Dim Deb As Long, Fin As Long
Dim Mot As String
Mot = "ROUGE"
Deb = RichTextBox1.Find(Mot)
Fin = Deb + Len(Mot)
RichTextBox1.SelStart = Deb
RichTextBox1.SelLength = Fin - Deb
RichTextBox1.SelColor = &HFF&
RichTextBox1.SelText = Mot
 
Mot = "BLEU"
Deb = RichTextBox1.Find(Mot)
Fin = Deb + Len(Mot)
RichTextBox1.SelStart = Deb
RichTextBox1.SelLength = Fin - Deb
RichTextBox1.SelColor = &HFF0000
RichTextBox1.SelText = Mot
 
End Sub

Regarde aussi ce lien, il peut t'interreser RichTextBox et surlignage

[Ramdoulou]

Merci pour ta réponse, oui en effet je m'étais bien compliqué la vie...xD

Interessant ton lien, ca va surement m'aider.

Merci encore