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

vb简易的在text或输入的文本中查找特定的字符form1(第一种)Public iAs 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 TargetPositionAs Integer 编写一个查找函数 Private Sub FindText(ByValstart_at As Integer) Dim posAs Integer Dim target As String 获取用户输入的要查找的字符串target = Text2.Textpos = 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.SetFocusGoTo 100 End If Text3 = pos List1.AddItem