Question

用vb.net实现查找功能

需要全部的代码，和注释，谢谢！

Answer 1

是不是字符串查找的啊! Public Class Form1 Dim i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text <> "" Then RichTextBox1.LoadFile(TextBox1.Text, RichTextBoxStreamType.RichText) 'RTF文本格式 Else MsgBox("找不到文件！请重试。") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If RichTextBox1.Modified = True Then RichTextBox1.SaveFile(TextBox1.Text, RichTextBoxStreamType.RichText) MsgBox("保存成功！") Else MsgBox("文本没有被修改！") Exit Sub End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox3.Text <> "" Then 'i + 1从本身开始，从 RichTextBox1.Text开始位置，查找TextBox3.Text最先出现的位置。 i = InStr(i + 1, RichTextBox1.Text, TextBox3.Text) If i = 0 Then MsgBox("查找完毕！") Exit Sub Else RichTextBox1.Select(i - 1, Len(TextBox3.Text)) '选中 i-1 开始位置 ，选中TextBox3.Text的字符长度 End If Else MsgBox("没有查找内容！") End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load i = 0 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim j As Integer If TextBox4.Text <> "" Then For j = 0 To RichTextBox1.TextLength - 1 i = InStr(i + 1, RichTextBox1.Text, TextBox3.Text) If i = 0 Then MsgBox("替换完毕！") Exit Sub Else RichTextBox1.Select(i - 1, Len(TextBox3.Text)) RichTextBox1.SelectedText = TextBox4.Text End If Next Else MsgBox("没有替换内容！") End If End Sub End Class