richtextbox 控件_c richtextbox换行光标_richtextbox fontsize(7)

图16:打印预览

打印部分包装的主要形式类的其余部分。邮编:查找和替换表

查找和替换的形式支持与frmReplace类。这一发现类定义在frmFind，但因为它包含两个子程序（查找和查找下一个"）同样是在查找和替换的形式中，我将只讨论在查找和替换的形式中包含的代码。

查找和替换的形式支持四个子程序:查找查找下一个"替换全部替换

查找子程序是相当简单的，它会搜索整个文档形式的用户定义的搜索字词第一次出现。它将自动搜索两种方式之一:使用或不匹配的搜索字词的情况下。取决于是否用户已签的形式区分大小写复选框，应用程序将搜索的使用二进制或文本比较方法文本。用二进制方法，搜索词必须完全匹配（包括大小写）;文本比较方法，字符串只需要相匹配。 ？？？代码> StartPosition整数的值设置为值从INSTR调用返回; INSTR是通过1的起始位置，丰富的文本框控件中包含的文本的整个身体（条搜索），由用户输入的搜索词，搜索比较方法。richtextbox 控件 INSTR将返回找到的文本的索引位置，如果文本中发现的事实。如果没有找到，它会返回一个零。如果起始位置值是零，将通知用户搜索词没有被发现，否则，应用程序将突出在文档中找到的文本，泛它的位置，并将焦点设置回主窗体（这反过来又使突出显示用户可见）。私人小组btnFind_Click（BYVAL发件人为System.Object，_＃System.EventArgs E）把手btnFind.Click由于整数的DIM StartPositionDIM检索类别作为CompareMethod如果chkMatchCase.Checked = True，则 检索类别= CompareMethod.Binary其他检索类别= CompareMethod.Text结束如果StartPosition = INSTR（1，frmMain.rtbDoc.Text，_txtSearchTerm.Text，检索类别）如果StartPosition = 0，那么MessageBox.Show（"字符串:"quot;放大器; txtSearchTerm.Text.ToString（）放大器; -""不foundquot;，"没有Matchesquot;，MessageBoxButtons.OK，MessageBoxIcon.Asterisk）退出小组结束如果frmMain.rtbDoc.Select（StartPosition - 1，txtSearchTerm.Text.Length）frmMain.rtbDoc.ScrollToCaret（）frmMain.Focus（） END SUB

替换子程序是相当简单的。它只是测试，看看如果选择任何文字，如果它是，它是由用户输入到表单中的替换文本替换它然后移动到下一个出现的搜索词，如果存在的话中:Private Sub btnReplace_Click（ BYVAL发件人，为System.Object _＃System.EventArgs E）把手btnReplace.Click 如果frmMain.rtbDoc.SelectedText.Length LT，GT 0然后;frmMain.rtbDoc.SelectedText = txtReplacementText.Text结束如果 昏暗的StartPosition为整数= frmMain.rtbDoc.SelectionStart 2DIM检索类别作为CompareMethod如果chkMatchCase.Checked = True，则检索类别= CompareMethod.Binary其他检索类别= CompareMethod.Text结束如果StartPosition = INSTR（StartPosition，frmMain.rtbDoc.Text，_txtSearchTerm.Text，检索类别） 如果StartPosition = 0，那么 MessageBox.Show（"字符串:"quot;放大器; txtSearchTerm.Text.ToString（）放大器; -""不foundquot;，"没有Matchesquot;，MessageBoxButtons.OK，MessageBoxIcon.Asterisk） 退出小组结束如果 frmMain.rtbDoc.Select（StartPosition - 1，txtSearchTerm.Text.Length）frmMain.rtbDoc.ScrollToCaret（）frmMain.Focus（） END SUB

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-25592-7.html