VB Richtextbox Frage

[mrapc]

Hallo Com,

ich möchte das ein Wort in einer Richtextbox eine andere Farbe bekommt.
aber nur ein einzelnes wort.

Beispiel

 start
[COLOR="Blue"]Say[/COLOR] ("Hallo du")
[COLOR="#0000ff"]say[/COLOR] ("HoHo")
[COLOR="#0000ff"]wait ( )[/COLOR]

Der code sollte so aussehen

PHP Code:

If RichTextBox1.Text.Contains("Say") Then
            // und hier weis ich nicht weiter...
        End If 


Also er entdeckt das Wort Say aber das wars auch schon...

Danke schonmal im Vorraus

APC

[Kraizy​]

Such mal in Google nach .SelectionStart() & .SelectionColor().

[mrapc]

danke aber man kann das nicht verwenden

So kann man zwar
Richtextbox1.select ("Say")

aber es verschwindet beim nächstem klick...

[Kraizy​]

PHP Code:

Public Sub Markiere(Wort as string, Farbe as color)
     dim mc as MatchCollection = Regex.Matches(rtb.text.tolower, wort.tolower)

     For each m as Match in mc
          rtb.select(m.index, m.length)
          rtb.selectioncolor = farbe
          rtb.select(rtb.text.length, 0)
          rtb.selectioncolor = color.black
     Next
End Sub 


[mrapc]

Soll ich dann "m" in Say umändern?

[Kraizy​]

Du sollst die Methode aufrufen, z.B. per Button: Markiere("say", Color.Blue)

[mrapc]

OK Danke
Hier der COde wie ich den haben musste:

PHP Code:

Dim mc As System.Text.RegularExpressions.MatchCollection = System.Text.RegularExpressions.Regex.Matches(RichTextBox1.Text.ToLower, Wort.ToLower)

        For Each m As System.Text.RegularExpressions.Match In mc
            RichTextBox1.Select(m.Index, m.Length)
            RichTextBox1.SelectionColor = Farbe
            RichTextBox1.Select(RichTextBox1.Text.Length, 0)
            RichTextBox1.SelectionColor = Color.Black
        Next
    End Sub 


Zum Aufrufen

PHP Code:

If Richtextbox1.text.contains ("Say") Then
Markiere("say", Color.Blue)
End If 


1000 mal Danke an xKraizy

[Kraizy​]

Die If-Abfrage brauchst du gar nicht. Pack die Zeile: Markiere("say", Color.Blue) in das TextChanged-Ereignis der RichTextBox und beim Schreiben, wird automatisch das Wort markiert.

[mrapc]

JA wenn es aber nicht exestiert kommt ein fehler

[Kraizy​]

Also bei mir nicht..

PHP Code:

Imports System.Text.RegularExpressions
Public Class Form1
    Public Sub Markiere(ByVal Wort As String, ByVal Farbe As Color)
        Dim mc As MatchCollection = Regex.Matches(RichTextBox1.Text.ToLower, Wort.ToLower)

        For Each m As Match In mc
            RichTextBox1.Select(m.Index, m.Length)
            RichTextBox1.SelectionColor = Farbe
            RichTextBox1.Select(RichTextBox1.Text.Length, 0)
            RichTextBox1.SelectionColor = Color.Black
        Next
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Markiere("say", Color.Blue)
    End Sub
End Class 


Wenn ich schreibe, wird der Text ganz normal in der RTB angezeigt, wenn ich dann inrgendwann "say" schreibe wird es blau markiert. Es kommt aber kein Fehler..

[mrapc]

mh naja auch egal aber danke für deine Hilfe