Visual Basic 2005 编写 文本编辑器
“查找与替换”操作的“全部替换”功能的实现代码:
Private Sub bttnReplaceAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnReplaceAll.ClickDim curPos, curSel As IntegercurPos = TXTPadForm.TxtBox.SelectionStartcurSel = TXTPadForm.TxtBox.SelectionLengthTXTPadForm.TxtBox.Text = Replace(TXTPadForm.TxtBox.Text, Trim(searchWord.Text),Trim(replaceWord.Text))TXTPadForm.TxtBox.SelectionStart = curPosTXTPadForm.TxtBox.SelectionLength = curSelEnd Sub
本文介绍使用Visual Basic 2005编写文本编辑器时,“查找与替换”功能中“全部替换”的具体实现代码。通过简单的代码示例展示了如何在文本框中进行批量替换操作。
2204

被折叠的 条评论
为什么被折叠?



