有人会做这题吗帮下忙谢谢
'根据要求,窗体添加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,写字板之类的办公软件的基本功能嘛!
下一篇:麻烦牛人救救我
上一篇:寒假作文200字28篇