ControlCollection.GetInlineShapeForControl Метод (2007 System)

Статья
11/16/2008

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

Возвращает основной объект InlineShape для указанного элемента управления.

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

Синтаксис

'Декларация
Public Function GetInlineShapeForControl ( _
    control As Control _
) As InlineShape
'Применение
Dim instance As ControlCollection
Dim control As Control
Dim returnValue As InlineShape

returnValue = instance.GetInlineShapeForControl(control)

public InlineShape GetInlineShapeForControl(
    Control control
)

Параметры

control
Тип: System.Windows.Forms.Control
Элемент управления в экземпляре коллекции ControlCollection, из которого необходимо получить объект InlineShape.

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

Тип: Microsoft.Office.Interop.Word.InlineShape
Основной объект InlineShape для указанного элемента управления.

Заметки

Если стилю обтекания для элемента управления присвоено значение, отличное от В тексте, метод GetInlineShapeForControl возвращает значение nullссылка null (Nothing в Visual Basic).

Примеры

В приведенном ниже примере кода в документ добавляется элемент управления Button, а стилю обтекания присваивается значение "В тексте". Затем в коде вызывается метод GetInlineShapeForControl для получения местоположения элемента управления из объекта InlineShape.

Private Sub WordGetInlineShape()
    Dim testButton As Microsoft.Office.Tools.Word.Controls.Button = _
        Me.Controls.AddButton(Me.Paragraphs(1).Range, 50, 25, "testButton")

    Dim buttonShape As Microsoft.Office.Interop.Word.InlineShape = _
            Me.Controls.GetInlineShapeForControl(testButton)

    If buttonShape IsNot Nothing Then
        MessageBox.Show("The following properties can be cached in the" & _
            vbCrLf & "document to enable you to recreate the control:" _
            & vbCrLf & vbCrLf & "Range: position " & _
            buttonShape.Range.Start.ToString _
            & " through " & buttonShape.Range.End.ToString _
            & vbCrLf & "Width: " & buttonShape.Width.ToString _
            & vbCrLf & "Height: " & buttonShape.Height.ToString)
    End If
End Sub

private void WordGetInlineShape()
{
    Microsoft.Office.Tools.Word.Controls.Button testButton =
        this.Controls.AddButton(this.Paragraphs[1].Range, 50, 25,
        "testButton");

    Microsoft.Office.Interop.Word.InlineShape buttonShape =
        this.Controls.GetInlineShapeForControl(testButton);

    if (buttonShape != null)
    {
        MessageBox.Show("The following properties can be cached in the" +
            "\n" + "document to enable you to recreate the control:"
            + "\n\n" + "Range: position " + buttonShape.Range.Start.
            ToString() + "through " + buttonShape.Range.End.ToString()
            + "\n" + "Width: " + buttonShape.Width.ToString() + "\n" +
            "Height: " + buttonShape.Height.ToString());
    }
}

Разрешения

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

См. также

Ссылки

ControlCollection Класс

ControlCollection - члены

Microsoft.Office.Tools.Word - пространство имен

Поделиться через