Vb.net problem

Question

Witam, mam pewien problem. mianowicie mam kod, który sprawdza czy w richtext boxie jest jakiś napis ale wywala error. Oto on:

        Dim index As Integer = 0

        While index < RichTextBox_chat.Text.LastIndexOf("[Admin]")
            RichTextBox_chat.Find("[Admin]", index, RichTextBox_chat.TextLength, RichTextBoxFinds.None)
            RichTextBox_chat.SelectionColor = color.red
            index = RichTextBox_chat.Text.IndexOf("[Admin]", index) + 1

 

Kod wywala tutaj: 

RichTextBox_chat.SelectionColor = color.red

i wskazuje na "color"

i jeszcze dodam error sam w sobie: Expression does not produce a value.

 

Answer 1

jeśli w tekst niema znaków koloru czerwonego to wywala błąd chyba że chcesz napisać kod zmieniający zaznaczony tekst np.

RichTextBox_chat.SelectionStart = 0
RichTextBox_chat.SelectionLength = TextBox1.TextLength
RichTextBox_chat.SelectionColor = color.red

to fragmet kodu zaznaczający wszystkie znaki w tym polu i zmieniający ich kolor na czerwony