Question

vb中查找字符串！

比如在text1.text="zenmechaozhaogaishibachaowsa"
在text2.text中输入chao
单击查找让text1.text中的chao呈选中状态
再次单击，查找下一个chao
各位朋友帮帮忙，最好举个列子 谢谢！

Answer 1

Dim i As Integer

Private Sub Command1_Click()
i = InStr(i + 1, Text1, Text2)
If i = 0 Then Exit Sub
Text1.SelStart = i - 1
Text1.SelLength = Len(Text2)
Text1.SetFocus
End Sub

Private Sub Form_Load()
Text1.Text = "zenmechaozhaogaishibachaowsa"
Text2.Text = "chao"
i = 0
End Sub

Answer 2

Private Sub Command1_Click()
Dim intNum As Integer
intNum = InStr(Text1.Text, Text2.Text)
Text1.SelStart = intNum
Text1.SelLength = Len(Text2.Text)
End Sub