易动轩

在 Visual Basic 6.0 中，RichTextBox 控件的 AutoVerbMenu 属性用于显示具有一组标准命令的上下文菜单。

在 Visual Basic 2008 中，不再存在 AutoVerbMenu 属性。要为 RichTextBox 控件提供一个上下文菜单，请使用 ContextMenuStrip 组件。有关更多信息，请参见 AutoVerbMenu 属性未升级。

在 Visual Basic 6.0 中，DisableNoScroll 属性确定：在 RichTextBox 控件中，当文本行太少而不需要垂直滚动或字符太少而不需要水平滚动时，是否让滚动条以不可用的形式出现。

In Visual Basic 2008, the DisableNoScroll property no longer exists.可以使用 ScrollBars 属性强制滚动条出现，当不能强制它以不可用的形式出现。

在 Visual Basic 6.0 中，FileName 属性或 LoadFile 方法可用于将一个 .rtf 文件或文本文件加载到 RichTextBox 控件中。

在 Visual Basic 2008 中，只有 LoadFile 方法可用；不能在设计时分配文件。

在 Visual Basic 6.0 中，RichTextBox 控件的 SelPrint 方法可用于打印该控件的内容。它带有一个参数 hDC，用于指定设备的设备上下文。

在 Visual Basic 2008 中，不再存在 SelPrint 方法，设备上下文也不再用于打印。RichTextBox 控件不提供打印其内容的方法。但是，您可以扩展 RichTextBox 类以使用 EM_FORMATRANGE 消息。然后，可以将 RichTextBox 的内容发送到输出设备，如打印机。有关更多信息，请参见 SelPrint 属性未升级。

在 Visual Basic 6.0 中，SelTabCount 属性确定在选定的段落中或在这些段落中的插入点后的 Tab 位置数。

在 Visual Basic 2008 中，不再存在 SelTabCount 属性，它被 SelectionTabs 属性的 Length 参数 (SelectionTabs.Length) 替换。

在 Visual Basic 6.0 中，RichTextBox 控件的 Span 方法可以用来基于一组指定的字符选择文本范围。

在 Visual Basic 2008 中，不再存在 Span 方法。可以使用带有 characterSet() 参数的 Find 方法查找指定的字符，然后使用 SelectedText 属性来选择范围。

在 Visual Basic 6.0 中，RichTextBox 控件的 Upto 方法可以用于将插入点向前移动到一组指定的字符中的第一个字符（但不包括）。

在 Visual Basic 2008 中，不再存在 Upto 方法。可以使用带有 characterSet() 参数的 Find 方法查找指定的字符，然后使用 SelectionStart 属性移动插入点。

此外，还有大量适用于所有控件的概念差异，包括数据绑定、字体处理、拖放功能、帮助支持等方面的差异。有关更多信息，请参见适用于 Visual Basic 6.0 用户的 Windows 窗体概念。

下面的代码演示在 RichTextBox 控件中如何从插入点到句子末尾进行搜索并突出显示它。该示例需要一个在其 Text 属性中输入了一个或多个句子的 RichTextBox 控件，同时还需要一个 Button 控件。由于是从按钮的 Click 事件中调用代码，所以应将 RichTextBox 的 HideSelection 属性设置为 False；否则突出显示将不可见。

 

复制代码

' Visual Basic 6.0' Make sure that HideSelection is set to False.Private Sub Command1_Click()    RichTextBox1.Span ".?!", True, TrueEnd Sub

Visual Basic

复制代码

' Visual Basic' Make sure that HideSelection is set to False.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _System.EventArgs) Handles Button1.Click    Dim endChars() As Char = New Char() {".", "!", "?"}    Dim intEnd As Integer    intEnd = RichTextBox1.Find(endChars, RichTextBox1.SelectionStart)    RichTextBox1.SelectionLength = intEnd - RichTextBox1.SelectionStartEnd Sub