文本编辑器 “查找与替换”操作的“全部替换”功能的实现代码 Visual Basic 2005 编写

最新推荐文章于 2020-07-08 17:42:02 发布

newest

最新推荐文章于 2020-07-08 17:42:02 发布

阅读量1.4k

点赞数

文章标签：文本编辑 basic integer

本文链接：https://blog.csdn.net/newest/article/details/2097742

版权

Visual Basic 2005 编写文本编辑器

“查找与替换”操作的“全部替换”功能的实现代码：

Private Sub bttnReplaceAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnReplaceAll.Click

        Dim curPos, curSel As Integer

        curPos = TXTPadForm.TxtBox.SelectionStart

        curSel = TXTPadForm.TxtBox.SelectionLength

        TXTPadForm.TxtBox.Text = Replace(TXTPadForm.TxtBox.Text, Trim(searchWord.Text),Trim(replaceWord.Text))

        TXTPadForm.TxtBox.SelectionStart = curPos

        TXTPadForm.TxtBox.SelectionLength = curSel

End Sub