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

Статья
11/16/2008

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

Добавляет в заданное место документа новый элемент управления RichTextBox указанного размера.

Пространство имен: Microsoft.Office.Tools.Word
Сборка: Microsoft.Office.Tools.Word.v9.0 (в Microsoft.Office.Tools.Word.v9.0.dll)

Синтаксис

'Декларация
Public Function AddRichTextBox ( _
    range As Range, _
    width As Single, _
    height As Single, _
    name As String _
) As RichTextBox
'Применение
Dim instance As ControlCollection
Dim range As Range
Dim width As Single
Dim height As Single
Dim name As String
Dim returnValue As RichTextBox

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

public RichTextBox AddRichTextBox(
    Range range,
    float width,
    float height,
    string name
)

Параметры

range
Тип: Microsoft.Office.Interop.Word.Range
Объект Range, предоставляющий местоположение элемента управления.

width
Тип: System.Single
Ширина элемента управления в пунктах.

height
Тип: System.Single
Высота элемента управления в пунктах.

name
Тип: System.String
Имя, которое можно использовать для индексации элемента управления в экземпляре класса ControlCollection.

Возвращаемое значение

Тип: Microsoft.Office.Tools.Word.Controls.RichTextBox
Элемент управления RichTextBox, добавленный в экземпляр класса ControlCollection.

Исключения

Исключение	Условие
ArgumentNullException	Аргумент name или range равен nullссылка null (Nothing в Visual Basic), или аргумент name имеет нулевую длину.
ControlNameAlreadyExistsException	Элемент управления с таким именем уже имеется в данном экземпляре класса ControlCollection.
InvalidRangeException	Указанный диапазон не существует.

Заметки

Этот метод используется для добавления объектов RichTextBox в конец коллекции ControlCollection.

Чтобы удалить добавленный программно объект RichTextBox, воспользуйтесь методом Remove.

Примеры

В приведенном ниже примере кода в первый абзац документа добавляется элемент управления RichTextBox, после чего в этот элемент управления заносится текст, который затем форматируется.

Private Sub WordRangeAddRichTextBox()
    Me.Paragraphs(1).Range.InsertParagraphBefore()
    Dim RichTextBox1 As Microsoft.Office.Tools.Word.Controls. _
        RichTextBox = Me.Controls.AddRichTextBox( _
        Me.Paragraphs(1).Range, 75, 15, "RichTextBox1")
    RichTextBox1.Text = "Sample text"
    RichTextBox1.Select(0, 6)
    RichTextBox1.SelectionFont = New Font("Times New Roman", _
        10, FontStyle.Bold)

End Sub

private void WordRangeAddRichTextBox()
{
    this.Paragraphs[1].Range.InsertParagraphBefore();
    Microsoft.Office.Tools.Word.Controls.RichTextBox
         richTextBox1 = this.Controls.AddRichTextBox(
         this.Paragraphs[1].Range, 75, 15, "richTextBox1");
    richTextBox1.Text = "Sample text";
    richTextBox1.Select(0, 6);
    richTextBox1.SelectionFont = new Font("Times New Roman",
        10, FontStyle.Bold);
}

Разрешения

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