Sdílet prostřednictvím


ControlCollection.AddControl – metoda (Control, Range, Single, Single, String)

Přidá zadaný ovládací prvek ControlCollection na zadaný rozsah se zadanou velikost.

Obor názvů:  Microsoft.Office.Tools.Word
Sestavení:  Microsoft.Office.Tools.Word (v Microsoft.Office.Tools.Word.dll)

Syntaxe

'Deklarace
Function AddControl ( _
    control As Control, _
    range As Range, _
    width As Single, _
    height As Single, _
    name As String _
) As ControlSite
ControlSite AddControl(
    Control control,
    Range range,
    float width,
    float height,
    string name
)

Parametry

Vrácená hodnota

Typ: Microsoft.Office.Tools.Word.ControlSite
objekt , který představuje ovládací prvek, který obsahuje zadaný ovládací prvek v dokumentu.

Výjimky

Výjimka Podmínka
ArgumentNullException

control, name, Nebo rangeargument je nullodkaz Null (Nothing v jazyce Visual Basic), nebo nameargument má nulovou délku.

ControlNameAlreadyExistsException

Ovládací prvek se stejným názvem je již v ControlCollection instance.

InvalidRangeException

Určený rozsah je platný.

Poznámky

Tuto metodu lze použít libovolný ovládací prvek přidat ControlCollection v čase zpracování. Další informace naleznete v tématu Adding Controls to Office Documents at Run Time.

Příklady

Následující příklad kódu přidá do dokumentu pomocí dvou vlastních uživatelských ovládacích prvků AddControl metody. Vkládá na první ovládací prvek Range. Druhý ovládací prvek je přidán na určité místo. Kód změní Top vlastnost první vlastní uživatel řízení, které pouze přesune ovládací prvek vzhledem k ControlSite , která obsahuje ovládací prvek v dokumentu. Kód poté nastaví Top Vlastnosti ControlSite vrátil druhý ovládací prvek uživatele ilustrují správné lze nastavit Top vlastnost ovládacího prvku.

Private Sub WordRangeAddControl()
    Me.Paragraphs(1).Range.InsertParagraphBefore()
    Dim CustomUserControl As New UserControl1()
    Dim CustomUserControl2 As New UserControl2()

    Dim DynamicControl As Microsoft.Office.Tools.Word.ControlSite = _
        Me.Controls.AddControl(CustomUserControl, _
        Me.Paragraphs(1).Range, 150, 150, "DynamicControl")

    Dim DynamicControl2 As Microsoft.Office.Tools.Word.ControlSite = _
        Me.Controls.AddControl(CustomUserControl2, _
        200, 0, 150, 150, "DynamicControl2")

    CustomUserControl.BackColor = Color.Blue
    CustomUserControl2.BackColor = Color.Green

    CustomUserControl.Top = 100
    dynamicControl2.Top = 100
End Sub 
private void WordRangeAddControl()
{
    this.Paragraphs[1].Range.InsertParagraphBefore();
    UserControl1 customUserControl = new UserControl1();
    UserControl2 customUserControl2 = new UserControl2();

    Microsoft.Office.Tools.Word.ControlSite dynamicControl =
        this.Controls.AddControl(customUserControl, 
        this.Paragraphs[1].Range, 150, 150, "dynamicControl");

    Microsoft.Office.Tools.Word.ControlSite dynamicControl2 =
        this.Controls.AddControl(customUserControl2, 200, 0,
        150, 150, "dynamicControl2");

    customUserControl.BackColor = Color.Blue;
    customUserControl2.BackColor = Color.Green;

    customUserControl.Top = 100;
    dynamicControl2.Top = 100;
}

Zabezpečení rozhraní .NET Framework

Viz také

Odkaz

ControlCollection Rozhraní

AddControl – přetížení

Microsoft.Office.Tools.Word – obor názvů