Question

vb查找关键字（要求完整代码）

要求：一个输入关键字的文本text，一个搜索按钮comd，一个文本内容及查找所有显示的text。（不要记事本和word类型的查找）

Answer 1

Private Sub Command1_Click()
iPos = InStr(iPos + Len(Text1.Text), Text2.Text, Text1.Text, vbTextCompare)
If iPos > 0 Then
Text2.SelStart = iPos - 1
Text2.SelLength = Len(Text1.Text)
Text2.SetFocus
Else
iPos = 1
MsgBox "没找到"
End If
End Sub

Private Sub Form_Load()
iPos = 1
End Sub

Answer 2

具备这种显示技术的控件有：
RichTextbox或webbrowser或word控件
通过API等其他方法，不仅代码长，而且效果不好。