有人会做这题吗帮下忙谢谢

更新时间2019-02-10 16:35:58

'根据要求，窗体添加Text1、Text2、Text3、Label1、Label2、Command1控件，将Text1属性MultiLine设为True（多行）。

'窗体布局、标签及按钮文字请按自己修复。

'环境：VB6.0
Private Sub Command1_Click()
   Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text, , , vbtextCompare)     '不区分大小写
   'Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text, , , vbBinaryCompare)  '区分大小写
End Sub
Private Sub Text2_Change()
   If Text2.Text = "" Then
       Command1.Enabled = False
       Text3.Enabled = False
   Else
       Command1.Enabled = True
       Text3.Enabled = True
   End If
End Sub
Private Sub Text3_Change()
   If Text3.Text = "" Then
       Command1.Enabled = False
   Else
       Command1.Enabled = True
   End If
End Sub
Private Sub Form_Load()
   Me.Caption = "替换"
   Text1.Text = ""
   Text2.Text = ""
   Text3.Text = ""
   Label1.Caption = "查找内容"
   Label2.Caption = "替 换 为"
   Command1.Caption = "查找替换"
End Sub
'以下代码主要用于替换演示，可以删除
Private Sub Form_Resize()
   Text1.Text = "演示ABcdEFgh" & vbCrLf & _
       "(1)窗体的标题为“替换”。" & vbCrLf & _
       "(2)窗体中有以下控件：一个文本框可以多行编辑，两价目文件本框，两个标签框，一个命令按钮。" & vbCrLf & _
       "(3)完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击“替换”按钮执行。"
   
   '演示1
   Text2.Text = "ABcdEFgh"
   Text3.Text = "ABCDEFG"
   Call Command1_Click
   MsgBox "演示1：查看替换结果"
   
   '演示2
   Text2.Text = "窗体"
   Text3.Text = "*替换演示*"
   Call Command1_Click
   MsgBox "演示2：查看替换结果"
End Sub

窗体布局

运行界面

这个题目不好直接回答，需要进入小程序才能完成。

像是 vb 编辑的小程序，类似这样的小程序示例中有，掉出来参考一下。

看你这个编程软件应该是VB，可以到CSDN上去找，有很多查找并替换的例子，自己复制下来修改一下就可以用了

直接点击就行

这不就是word，写字板之类的办公软件的基本功能嘛！

相关标签:谢谢