记事本中“查找”功能是怎么做的？我怎么在一个Text控件中找到字符串，并选中？

Question

请看
mdi.vbp
sdi.vbp

Answer 1

2 TEXT1.SETFOCUS
  TEXT1.SELSTART=POS
  TEXT1.SELLENTH=LEN(S)
  
  

Answer 2

用instr（...)查找。
用text的selstart和sellength选中。

Answer 3

调用windows的吧！
具体见：
http://www.csdn.net/expert/topic/401/401830.shtm

Answer 4

查找替换所选字符 
Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)
Dim vSearchLine As String, found As Integerfound = InStr(SearchLine, SearchFor): vSearchLine = SearchLine
If found <> 0 Then
vSearchLine = ""
If found > 1 Then vSearchLine = Left(SearchLine, found - 1)
vSearchLine = vSearchLine + ReplaceWith
If found + Len(SearchFor) - 1 < Len(SearchLine) Then _
vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1)
End If
sReplace = vSearchLineEnd Function