Question

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

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”就像notepad vb.net

1 个答案: