请问关于RichTextBox空间的问题

Question

sel**属性是RichTextBox中很重要的部分，查看这部分属性的文档吧

Answer 1

SelLength、SelStart、SelText 属性（ActiveX 控件）
      SelLength－返回或设置所选择的字符数。
SelStart－返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。
SelText－返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串 ("")。 
这些属性在设计时.是不可用的。语法object.SelLength [= number]object.SelStart [= index]object.SelText [= value]SelLength、SelStart、和 SelText 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
number 一个用来指定被选择字符数的数值表达式。对于 SelLength 和 SelStart，设置值的有效范围是 0 到文本长度－在 ComboBox 或 TextBox 控件编辑区中字符的总数。 
index 一个用来指定所选择文本的起始点的数值表达式，“设置值”中有详细描述。 
value 包含所选择文本的字符串表达式。 
说明为下面这些任务应使用这些属性，如设置插入点、建立插入范围、在控件中选择子串、或清除文本等。与 Clipboard 对象联合使用，这些属性对于复制、剪切、和粘贴操作是很有用的。当使用这些属性时： SelLength 的设置比 0 小会导致一个运行时错误。
SelStart 的设置比文本长度大，会使该属性设置为现有文本长度；SelStart 的改变将使选择改变到插入点并将 SelLength 设置为 0。
SelText 的设置为新值，会将 SelLength 设置为 0 并用新字符串代替所选择的文本。 SelLength、SelStart、SelText 属性示例
本例能够指定需要查找的文本，然后查找该文本并在找到后选中它。要试用此例，先将下面的代码粘贴到包含一个宽 TextBox 控件窗体的声明部分，然后按 F5 键 并单击窗体。Private Sub Form_Load ()
   Text1.Text = "Two of the peak human experiences"
   Text1.Text = Text1.Text & " are good food and classical music."
End Sub
Private Sub Form_Click ()
   Dim Search, Where   ' 声明变量。
   ' 获取需要查找的字符串。
   Search = InputBox("Enter text to be found:")
   Where = InStr(Text1.Text, Search)   ' 在文本中查找字符串。
   If Where Then   ' 如果找到，
      Text1.SelStart = Where - 1   ' 设置选定的起始位置并
      Text1.SelLength = Len(Search)   ' 设置选定的长度。
   Else
      MsgBox "String not found."   ' 给出通知。
   End If
End Sub本例显示如何在剪切、复制、粘贴、和删除操作中使用 Clipboard 对象。要试用此例，创建一个带有 TextBox 控件的窗体并使用“菜单编辑器”来创建一个“编辑”菜单 （对于每个命令，将其 Caption 属性分别设置为 Cut、Copy、Paste 和 Delete，将其 Name 属性分别设置为 EditCut、EditCopy、EditPaste 和 EditDelete）。Private Sub EditCut_Click ()
   ' 清除剪贴板上的内容。
   Clipboard.Clear
   ' 复制选中的文本到剪贴板上。
   ClipBoard.SetText Screen.ActiveControl.SelText
   ' 删除选中的文本。
   Screen.ActiveControl.SelText = ""
End SubPrivate Sub EditCopy_Click ()
   ' 清除剪贴板上的内容。
   Clipboard.Clear
   ' 复制选中的文本到剪贴板上。
   ClipBoard.SetText Screen.ActiveControl.SelText
End SubPrivate Sub EditPaste_Click ()
   ' 从剪贴板上将文本放置到活动控件中。
   Screen.ActiveControl.SelText = ClipBoard.GetText ()
End SubPrivate Sub EditDelete_Click ()
' 删除选中的文本。
Screen.ActiveControl.SelText = ""
End Sub 
SelFontName 属性
      返回或设置在 RichTextBox 控件中用于显示当前选定的文本、或用于显示刚从插入点所输入字符的字体。在设计时无效。语法object.SelFontName [= string]SelFontName 属性语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
string 字符串表达式，它标识系统中已安装的一种字体。 
说明如果所选定的文本包含有不同的字体，则 SelFontName 属性将返回 Null 值。
SelFontName 属性示例
该示例显示来自 CommonDialog 控件的一个字体对话框，用于指定 RichTextBox 控件中选定文本的字体属性。要试用此例，先要在窗体中放置一个 RichTextBox 控件、一个 CommandButton 控件和一个 CommonDialog 控件。并把以下代码粘贴到 CommandButton 控件的 Click 事件中。然后运行此例。Private Sub Command1_Click ()
   CommonDialog1.Flags = cdlCFBoth
   CommonDialog1.ShowFont
   With RichTextBox1
      .SelFontName = CommonDialog1.FontName
      .SelFontSize = CommonDialog1.FontSize
      .SelBold = CommonDialog1.FontBold
      .SelItalic = CommonDialog1.FontItalic
      .SelStrikethru = CommonDialog1.FontStrikethru
      .SelUnderline = CommonDialog1.FontUnderline
   End With
End Sub