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

Статья
11/16/2008

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

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

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

Синтаксис

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

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

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

Исключения

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

Заметки

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

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

Примеры

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

Private Sub WordRangeAddTextBox()
    Me.Paragraphs(1).Range.InsertParagraphBefore()
    Dim TextBox1 As Microsoft.Office.Tools.Word.Controls. _
        TextBox = Me.Controls.AddTextBox(Me.Paragraphs(1).Range, _
        75, 15, "TextBox1")
    TextBox1.Text = "Sample text"

End Sub

private void WordRangeAddTextBox()
{
    this.Paragraphs[1].Range.InsertParagraphBefore();
    Microsoft.Office.Tools.Word.Controls.TextBox
         textBox1 = this.Controls.AddTextBox(
         this.Paragraphs[1].Range, 75, 15, "textBox1");
    textBox1.Text = "Sample text";
}

Разрешения

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