创建功能“查找”，如记事本 vb.net

【问题标题】：create function "find" like notepad vb.net创建功能“查找”，如记事本 vb.net
【发布时间】：2016-02-29 14:17:52
【问题描述】：

我的用户请求一个程序来显示来自映射的数据。例如 \IP\st\ng\ej\txt1.txt 然后在 txt1.txt 的所有行，移动到richtextbox 或文本框。然后用户想要寻找类似数字或任何用户想要的东西。我已经在谷歌研究过，而且大多只是给出“标志”，比如字体颜色或背景颜色的变化。请任何帮助，任何参考谢谢

【问题讨论】：

找到文本所在位置后，只需更改选中的文本属性即可。

标签： vb.net notepad

【解决方案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 或textbox 中。

textboxfind 是存储您要查找的文本。

buttonfind 是命令按钮。

MSDN referense for InStr()

【讨论】：