RichTextBox : 1 seul mot précis en couleur ? possible ?

Bonjour,

Est-ce que quelqu'un serait s'il est possible, en Visual Basic .NET 2005 (donc FrameWork 2), de colorer un mot précis dans un contrôle RichTextBox ...

Si non, comment contourner, quoi d'autre utilisé ?

Merci à tous!

++

hmm, faire un peu comme notepad en C++ c'est ca?

ah oui tu as raison casy j'avais mal lu SelectionColor : mais je vois pas très bien comment l'utiliser :

dans le handles textchanged :

RichTextBox1.SelectionColor.Blue et après ??
(dsl si c'est une question "bete" mais je vois pas ...)

merci encore

c'est bon je viens de comprendre :

if mot.contains("echo") then
.selectioncolor = color.blue
end if

c'est bien comme ça ?

y'a bien quelque chose de possible avec .lines et .selectioncolor mais je trouve pas (j'ai parlé trop vite !) ...

ah merci!!! tu es un boss :P

oui select + une boucle For pour les lignes ...
merci bien

Voici ce que j'ai écris mais c'est encore plus compliqué que je le pensais :-(
si tu pouvais m'aider ... c'est pourtant simple (dans la tete en tout cas) mais pour codé ça ... wow!

Dim

keyword As Object () = { "echo" , "shuffle" , "php" }

Private Sub RichTextBox1_TextChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

Try

With RichTextBox1

Dim line As String = ""

For i As Integer = 0 To .Lines.GetUpperBound(0)

line = .Lines.GetValue(i).ToString

If String .IsNullOrEmpty(line) Then Exit Try

line = line.ToLowerInvariant

For j As Integer = 0 To keyword.GetUpperBound(0)

If line.Contains(keyword.GetValue(j).ToString) Then

Dim debut As Integer = line.IndexOf(keyword.GetValue(j).ToString)

Dim taille As Integer = keyword.GetValue(j).ToString.Length

.Select(debut, taille)

.SelectionColor = Color.Blue

End If

Next

Next

End With

Catch ex As Exception

Exit Try

End Try

End Sub

oups petite erreur avec le if String.IsNullOrEmpty ça quitte tout le Try-Catch, mais enfin je pense que tu comprendras le code quand même