ControlCollection.AddRichTextBox 方法 (Double, Double, Double, Double, String) (2007 system)

项目
09/04/2008

更新：2007 年 11 月

按照指定的大小和位置向工作表添加一个新的 RichTextBox 控件。

命名空间： Microsoft.Office.Tools.Excel
程序集： Microsoft.Office.Tools.Excel.v9.0（在 Microsoft.Office.Tools.Excel.v9.0.dll 中）

语法

声明
Public Function AddRichTextBox ( _
    left As Double, _
    top As Double, _
    width As Double, _
    height As Double, _
    name As String _
) As RichTextBox
用法
Dim instance As ControlCollection
Dim left As Double
Dim top As Double
Dim width As Double
Dim height As Double
Dim name As String
Dim returnValue As RichTextBox

returnValue = instance.AddRichTextBox(left, _
    top, width, height, name)

public RichTextBox AddRichTextBox(
    double left,
    double top,
    double width,
    double height,
    string name
)

参数

left
类型：System.Double

控件左边缘与工作表左边缘之间的距离（以磅为单位）。

top
类型：System.Double

控件上边缘与工作表上边缘之间的距离（以磅为单位）。

width
类型：System.Double

控件的宽度（以磅为单位）。

height
类型：System.Double

控件的高度（以磅为单位）。

name
类型：System.String

控件的名称。

返回值

类型：Microsoft.Office.Tools.Excel.Controls.RichTextBox

添加到 ControlCollection 实例的 RichTextBox 控件。

异常

异常	条件
ArgumentNullException	名称参数为 nullnull 引用（在 Visual Basic 中为 Nothing）或长度为零。
ControlNameAlreadyExistsException	ControlCollection 实例中已存在一个同名控件。

备注

使用 AddRichTextBox 方法可以将 RichTextBox 对象添加到 ControlCollection 的末尾。若要移除以前以编程方式添加的 RichTextBox 控件，请使用 Remove() 方法。

示例

下面的代码示例将一个 RichTextBox 控件添加到工作表顶端，为该控件指定文本，然后设置文本格式。

Private Sub ExcelRangeAddRichTextBox()

    Dim RichTextBox1 As Microsoft.Office.Tools. _
        Excel.Controls.RichTextBox = Me.Controls. _
        AddRichTextBox(Me.Range("A1", "B2"), _
        "RichTextBox1")

    RichTextBox1.Text = "Sample text"
    RichTextBox1.Select(0, 6)
    RichTextBox1.SelectionFont = New Font( _
        "Times New Roman", 10, FontStyle.Bold)

End Sub

private void ExcelRangeAddRichTextBox()
{

    Microsoft.Office.Tools.Excel.Controls.RichTextBox
         richTextBox1 = this.Controls.AddRichTextBox(
         this.Range["A1", "B2"], "richTextBox1");
    richTextBox1.Text = "Sample text";
    richTextBox1.Select(0, 6);
    richTextBox1.SelectionFont = new Font("Times New Roman",
        10, FontStyle.Bold);
}