Question

VB Richtextbox查找的问题

请高手帮忙，怎样实现下面的情况：
Richtextbox接收到一些字符，比如:
abc----------123
cde----------234
我想当搜索到abc时，让Textbox1显示123，当搜索到cde时，Textbox2显示234
自己解决了

Answer 1

Option Explicit

Private Sub Command1_Click()
Dim sStart As Long, lenStr As Long
Dim WzFlag As Long
sStart = RichTextBox1.SelStart
lenStr = 7
Do
WzFlag = RichTextBox1.Find("(", sStart)
If WzFlag = -1 Then
Exit Do
End If
RichTextBox1.SelStart = WzFlag
RichTextBox1.SelLength = lenStr
RichTextBox1.SelColor = vbRed
sStart = WzFlag + lenStr + 1
Loop
End Sub
可能是你没有声明变量吧，这样应该可以了，我运行过，可以了