(资料图)

1、在FORM1中,加入1个按钮,和1个文本框,在FORM2中,加入两个按钮,和两个文本框,Command1=查找下一个替换Command2=全部替换Form1.Text1.Text=需要替换的文本Form1.Text1.Text=被替换字串Form1.Text1.Text=替换字串FORM2中的代码:Private Sub Command1_Click()If InStr(Form1.Text1.Text, Form2.Text1.Text) <> 0 Then Form1.Text1.Text = Mid(Form1.Text1.Text, 1, InStr(Form1.Text1.Text, Form2.Text1.Text) - 1) & Form2.Text2.Text & Mid(Form1.Text1.Text, InStr(Form1.Text1.Text, Form2.Text1.Text) + Len(Form2.Text1.Text), Len(Form1.Text1.Text))End SubPrivate Sub Command2_Click()Form1.Text1.Text = Replace(Form1.Text1.Text, Form2.Text1.Text, Form2.Text2.Text)End Sub。

本文到此分享完毕，希望对大家有所帮助。