創建函數「find」like notepad vb.net

Question

我的用戶請求一個程序來顯示映射數據。 example \ IP \ st \ ng \ ej \ txt1.txt 然後在txt1.txt中的所有行移動到richtextbox或textbox。然後用戶想要尋找類似數字或任何用戶想要的東西。我已經在谷歌研究過，並且大多隻給字體顏色或背景顏色變化的「符號」。 請任何幫助，任何referense 感謝

Answer 1

您可以嘗試InStr函數（）函數，就像這樣：

Private Sub buttonfind.click(...) 
     Dim pos As Integer 
     pos = InStr(1, txtnote.Text, textboxfind.Text) 
     If pos > 0 Then 'If found test 
      txtNote.SelectionStart = pos - 1 
      txtNote.SelectionLength = Len(tlstSearch.Text) 
      txtNote.Focus() 'Get Focus 
     End If 
End Sub 

txtnote是店在RichTextBox或文本框的所有文本。

textboxfind是您想要查找的商店文本。

buttonfind是命令按鈕。

MSDN referense for InStr()