- UID
- 96332
- 帖子
- 1041
- 主題
- 152
- 精華
- 0
- 積分
- 1245
- 楓幣
- 121348
- 威望
- 1213
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 24
- 閱讀權限
- 70
- 性別
- 保密
- 在線時間
- 641 小時
- 註冊時間
- 2015-3-23
- 最後登入
- 2024-11-7
|
本帖最後由 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
|
|