创建函数 "find" 就像记事本 vb.net

Question

我的用户请求一个程序来显示映射数据。示例 \IP\st\ng\ej\txt1.txt 然后 txt1.txt 处的所有行移动到 richtextbox 或文本框。然后用户想要寻找数字之类的东西或用户想要的任何东西。我已经在 google 进行了研究，而且大多数情况下只是给 "sign" 字体颜色或背景颜色变化。请任何帮助，任何参考谢谢

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()

创建函数 "find" 就像记事本 vb.net

create function "find" like notepad vb.net

vb.net

notepad