vb简易的在text或输入的文本中查找特定的字符.docx

vb简易的在text或输入的文本中查找特定的字符form1(第一种)Public i As IntegerPrivate Sub command1_Click()RichTextBox3 = InStr(RichTextBox1.Text, RichTextBox2.Text)If Val(RichTextBox3.Text) 0 Theni = Val(RichTextBox3.Text)List1.AddItem iRichTextBox1.SelStart = i - 1RichTextBox1.SelLength = Len(RichTextBox2.Text)RichTextBox1.SelBold = True 加粗RichTextBox1.SelUnderline = TrueRichTextBox1.SelColor = vbBlueElseMsgBox 没有找到End IfEnd SubPrivate Sub command2_Click()i = i + 1RichTextBox3 = InStr(i, RichTextBox1.Text, RichTextBox2.Text)If Val(RichTextBox3.Text) 0 ThenList1.AddItem RichTextBox3.TextRichTextBox1.SelStart = RichTextBox3.Text - 1RichTextBox1.SelLength = Len(RichTextBox2.Text)RichTextBox1.SelUnderline = TrueRichTextBox1.SelBold = True #加粗RichTextBox1.SelColor = vbBluei = RichTextBox3.TextElseMsgBox 没有找到End IfEnd SubPrivate Sub Command3_Click()Form1.HideUnload Form2Load Form2Form2.ShowEnd SubPrivate Sub Form1_open()End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueEnd SubPrivate Sub RichTextBox1_GotFocus()RichTextBox1 = RichTextBox2 = RichTextBox3 = List1.ClearEnd SubPrivate Sub richTextbox2_Change()RichTextBox3 = List1.ClearLabel4.Caption = RichTextBox2.Text & 位置历史End Sub注：richtextbox是另一种控件，需在控件组里添加RichTextBox1.SelStart = 3 #要高亮的起始字符数 richTextbox1.SelLength = 5 #要高亮的字符数 richTextbox1.SelColor = vbRed #颜色 richTextbox1.SelFontSize = 20 #字体 richTextbox1.SelBold = True #加粗Form2(第二种)Option Explicit 定义目标位置变量 Private TargetPosition As Integer 编写一个查找函数 Private Sub FindText(ByVal start_at As Integer) Dim pos As Integer Dim target As String 获取用户输入的要查找的字符串 target = Text2.Text pos = InStr(start_at, Text1.Text, target) If pos 0 Then 找到了匹配字符串 TargetPosition = pos Text1.SelStart = TargetPosition - 1 选中找到的字符串 Text1.SelLength = Len(target) Text1.SetFocus Else 没有找到匹配的字符串 MsgBox 没找到！ Text1.SetFocus GoTo 100 End If Text3 = pos List1.AddItem Text3100 End Sub 双击“查找”命令按钮: Private Sub command1_Click() 从第一个字符处开始查找 FindText 1 End Sub 双击“查找下一个”按钮： Private Sub command2_Click() 从当前位置继续查找 FindText TargetPosition + 1 End SubPrivate Sub Command3_Click()Form2.HideUnload Form1Load Form1Form1