冰楓論壇

標題: [分享]做出跟TXT檔一樣的搜尋(搞很久= =) [打印本頁]

作者: rayray9132 時間: 2015-6-16 07:25
標題: [分享]做出跟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
LPK到底怎麼中的阿
我之前也有中過...
可是楓之谷還是可以開

歡迎光臨冰楓論壇 (https://bingfong.com/)