UC知道VB问题，来个帮助人的高手！！！
来源：百度知道 编辑：UC知道 时间：2024/06/14 17:36:16
老师给出了个题目：
在窗体中创建三个 text 四个命令按钮。 分别是 复制 粘贴 查找 替换
text1为一个大界面
text2里是查找的内容
text3里是替换的内容
实现，在text2里输入字符，可以在text1里查找该 字符。 text3里面输入字符，点击 替换命令按钮 可以在 text1替换查找到的该 字符！ 请高手们解答！ 有什么不明白的，请留言，我补充问题
pS: 大哥们，我是新手，能不能吧声明以及每个部分的代码写出来呢？
完全写出来，我慢慢分析理解啊！！
光告诉我使用什么函数，我看不懂啊。。。。
帮忙了大家！！！
在窗体中创建三个 text 四个命令按钮。 分别是 复制 粘贴 查找 替换
text1为一个大界面
text2里是查找的内容
text3里是替换的内容
实现，在text2里输入字符，可以在text1里查找该 字符。 text3里面输入字符，点击 替换命令按钮 可以在 text1替换查找到的该 字符！ 请高手们解答！ 有什么不明白的，请留言，我补充问题
pS: 大哥们，我是新手，能不能吧声明以及每个部分的代码写出来呢？
完全写出来，我慢慢分析理解啊！！
光告诉我使用什么函数，我看不懂啊。。。。
帮忙了大家！！！
Private Sub cdmReplace_Click()
Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text)
End Sub
Private Sub cmdCopy_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
End Sub
Private Sub cmdfind_Click()
mypos = InStr(1, Text1.Text, Text2.Text, 0)
Debug.Print mypos
If mypos = 0 Then Exit Sub
Text1.SelStart = mypos - 1
Text1.SelLength = Len(Text2.Text)
Text1.SetFocus
End Sub
Private Sub cmdPaste_Click()
MsgBox Clipboard.GetText
End Sub