Parcours & Coloration RichTextBox

Question

Je cherche à parcourir un RichTextBox mot par mot.
Ensuite si ce mot est dans un tableau, je veux mettre en couleur ce mot uniquement :

Par exemple :

Contenu du RichTextBox :
/* -------------------------------------------------------------- */
Si i < 8
    Alors Ajouter
    Sinon Supprimer
Fin Si
/* -------------------------------------------------------------- */

Je voudrais parcourir le RichTextBox mot par mot.
(Si ; i ; < ; 8 ; Alors ; Ajouter ; ........)

Et je cherche pour chaque mot si il est dans un tableau et s'il se trouve dans le tableau je ve le mettre en couleur.

Contenu du tableau :
/* -------------------------------------------------------------- */
Alors
Fin
Si
Sinon
....
/* -------------------------------------------------------------- */

Par exemple lors du parcours de mon RichTextBox mot par mot, je trouverais que le mot "Si" se trouve dans mon tableau et je le colorie en Bleu.
Et je continue ainsi husqu'a atteindre ke dernier mot du RichTextBox

Merci d'avance pour vos réponses.

Fred-2000

daa2003 · Answer

Bonjour,

J'ai une solution pour ton problème: voir le code qui suit.

            '*******Nombre de ligne*************
            Dim Lignes As Integer, i As Integer
            Lignes = Len(ActiveForm.rtfText.Text)
            
            '**************************************
           
            Dim compteur As Integer
            For compteur = 0 To Lignes

            FoundPos = ActiveForm.rtfText.Find("ALORS",   compteur, , 2)
            ActiveForm.rtfText.SelColor = RGB(256, 0, 0)

            Next compteur

Si t'as une application basée sur une feuille MDIActiveForm est ta feuille contenant ton RichTextBox(ici rtfText)  et qui est active  . Sinon tu mets le nom de ta feuille.

Tu peux remplacer l'expression "ALORS" par le texte qui se trouve à une case donné de ton tableau.

Si t'as d'autres questions n'hésites pas!!!

DAA

daa2003 · Answer

PS: remplace MDIActiveForm par MDI ActiveForm tu comprendras mieux
DAA

Parcours & Coloration RichTextBox

2 réponses

Discussions similaires