[VB.Net] [分享]做出跟TXT檔一樣的搜尋(搞很久= =)

Dim charPoint As Integer = ItemALLText.SelectionStart + ItemALLText.SelectionLength
        charPoint = ItemALLText.Text.IndexOf(ItemInStr.Text, charPoint)
        If charPoint < 0 Then
            MessageBox.Show("下面沒囉~")
            'ItemALLText.SelectionStart = 1   '搜尋到最底自動跳到開頭
        Else
            ItemALLText.Focus()
            ItemALLText.SelectionStart = charPoint
            ItemALLText.SelectionLength = Len(ItemInStr.Text)
        End If