Sdílet prostřednictvím


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

Přidá zadaný Control se ControlCollection v zadaném rozsahu.

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

Syntaxe

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

Parametry

Vrácená hodnota

Typ: Microsoft.Office.Tools.Excel.ControlSite
objekt , který představuje ovládací prvek, který obsahuje zadaný ovládací prvek na list.

Výjimky

Výjimka Podmínka
ArgumentNullException

Ovládací prvek, název nebo rozsah argument je nullodkaz Null (Nothing v jazyce Visual Basic), nebo argument název má nulovou délku.

ControlNameAlreadyExistsException

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

InvalidRangeException

Určený rozsah je platný. Multi -oblast rozsahy nelze použít. Rozsah by měl být na stejném list jako ControlCollection instance.

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 list pomocí dvou vlastní uživatel ovládací prvky AddControlmetoda. První ovládací prvek je přidán do oblasti buněk. Druhý ovládací prvek je přidán na určité místo. Změny kódu Top vlastnost první vlastní uživatel řízení, které pouze přesune ovládací prvek vzhledem k ControlSite , která obsahuje ovládací prvek na list. 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 ExcelRangeAddControl()

        Dim CustomUserControl As New UserControl1()
        Dim CustomUserControl2 As New UserControl2()

        Dim DynamicControl As Microsoft.Office.Tools.Excel.ListObject = Me.Controls.AddControl( _
            CustomUserControl, 0, 0, 150, 150, _
            "DynamicControl")

        Dim DynamicControl2 As Microsoft.Office.Tools.Excel. _
            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 ExcelRangeAddControl()
{

    UserControl1 customUserControl = new UserControl1();
    UserControl2 customUserControl2 = new UserControl2();

    Microsoft.Office.Tools.Excel.ControlSite dynamicControl =
        this.Controls.AddControl(customUserControl,
        0, 0, 150, 150, "dynamicControl");

    Microsoft.Office.Tools.Excel.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.Excel – obor názvů