rayray9132 發表於 2015-6-16 07:25:44

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

本帖最後由 rayray9132 於 2015-6-16 18:18 編輯

先感謝and大...
給有需要的人看看~
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

範例:
點我下載(google)(怕有毒物下)

結果我的楓之谷中毒中....
好個 LPK.DLL



yhes030303 發表於 2015-6-16 12:30:38

LPK到底怎麼中的阿
我之前也有中過...
可是楓之谷還是可以開
頁: [1]
查看完整版本: [分享]做出跟TXT檔一樣的搜尋(搞很久= =)