ControlCollection.AddRichTextBox Метод (Double, Double, Double, Double, String) (2007 System)

Статья
11/16/2008

Обновлен: Ноябрь 2007

Добавляет в заданное место листа новый элемент управления 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
Элемент управления RichTextBox, добавленный в экземпляр ControlCollection.

Исключения

Исключение	Условие
ArgumentNullException	Аргумент имени равен nullссылка null (Nothing в Visual Basic) или имеет нулевую длину.
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);
}

Разрешения

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.