"찾기"기능의 텍스트에 강조 표시를 어떻게 추가합니까?

Question

많은 텍스트가있는 텍스트 상자 하나와 첫 번째 텍스트 상자에서 찾을 수있는 문자열이 있어야합니다.

이

Text1 = TextBox1.Text 
    WordtoFind = TextBox2.Text 
    O = Text1.IndexOf(WordtoFind) 

    If (O = -1) Then 
     Label.Text = "String was not found" 
    Else 
     Label.Text = "String was found" 
    End If 

누군가가 발견 된 단어의 강조와 함께 좀 도와 줄래 : 나는 문자열이있는 경우 찾으려면이 사용? 감사.

Answer 1

이 시도 :

If (O = -1) Then 
    Label.Text = "String was not found" 
Else 
    Label.Text = "String was found" 
    TextBox1.Focus() 
    TextBox1.Select(O, WordtoFind.Length) 
End If 

편집

Dim wordPosition As Integer 

Text1 = TextBox1.Text 
WordtoFind = TextBox2.Text 
wordPosition = Text1.IndexOf(WordtoFind) 

If (wordPosition = -1) Then 
    Label.Text = "String was not found" 
Else 
    Label.Text = "String was found" 
    TextBox1.Focus() 
    TextBox1.Select(wordPosition, WordtoFind.Length) 
End If 

발터