RichTextBox에있는 모든 Word 인스턴스의 색상 변경

Question

Im 이렇게하려고하면 코드에 단어 또는 단어를 지정할 수 있으며 컴파일/디버그 할 때 프로그램에서 richtextbox를 모두 검색하게하려면 그 단어의 인스턴스 및 색상 변경.

Dim GRAB as String = New WebClient().DownloadString("example.com") 
RichTextBox1.Text = GRAB 
` Color Word Code Here 

Ive는 Google에서 많은 것들을 찾아 보았습니다. 그러나 제가 시도한 모든 것은 첫 번째 단어 만 강조 표시합니다.

내 입력이 나쁜 경우 죄송합니다, 부러진 팔 메신저 입력 ..

사람이 좀 도와, 또는 빠른 조각을 쓸 수 있습니까?

Answer 1

색상이 변경 될 텍스트를 선택해야합니다.

RichTextBox1.Select(RichTextBox1.Text.IndexOf("example"),4) 
RichTextBox1.SelectionColor = Color.Red 

같은

Answer 2

이 시도 할 것인가 빨간색 또는

RichTextBox1.Select(6,4) 
    RichTextBox1.SelectionColor = Color.Red 

에서 ".COM"를 렌더링합니다 :

Dim wordslist As New List(Of String) 
wordslist.Add("Hello") 
wordslist.Add("World") 

Dim len As Integer = RichTextBox1.TextLength 

For Each word As String In wordslist 

    Dim lastindex = RichTextBox1.Text.LastIndexOf(word) 
    Dim index As Integer = 0 

    While index < lastindex 

    RichTextBox1.Find(word, index, len, RichTextBoxFinds.None) 
    RichTextBox1.SelectionColor = Color.Blue 
    index = RichTextBox1.Text.IndexOf(word, index) + 1 

    End While 

Next 

수정 및 Here에서 C#을 번역

Answer 3

유 VS 같은 블루 색상에 '딤섬'을 만들고 싶어한다고 가정 -

이 붙여 넣기 :

If RichTextBox1.Text.EndsWith("Dim") Then 
     RichTextBox1.Select(RichTextBox1.TextLength - 3, 3) 
     RichTextBox1.SelectionColor = Color.Blue 
     RichTextBox1.Select(RichTextBox1.TextLength, RichTextBox1.TextLength) 
     RichTextBox1.SelectionColor = Color.Black 
    End If 

이 Text_Changed로하여 RichTextBox이 코드를 추가합니다.