ShapeCollection.RemoveAt メソッド

[アーティクル]
08/22/2008

更新 : 2007 年 11 月

指定されたインデックス位置にある Shape を ShapeCollection から削除します。

名前空間 : Microsoft.VisualBasic.PowerPacks
アセンブリ : Microsoft.VisualBasic.PowerPacks.Vs (Microsoft.VisualBasic.PowerPacks.Vs.dll 内)

構文

'宣言
Public Sub RemoveAt ( _
    index As Integer _
)
'使用
Dim instance As ShapeCollection
Dim index As Integer

instance.RemoveAt(index)

public void RemoveAt(
    int index
)

public:
virtual void RemoveAt(
    int index
) sealed

public final function RemoveAt(
    index : int
)

パラメータ

index
型 : System.Int32

削除する Shape のインデックス値。

実装

IList.RemoveAt(Int32)

解説

コントロールコレクションから Shape を削除すると、後続のすべての図形が、それぞれコレクション内で 1 つ前の位置に移動します。

また、Remove メソッドを使用して Shape を削除したり、Clear メソッドを使用してすべての図形を削除したりできます。

新しい Shape オブジェクトをコレクションに追加するには、Add メソッドまたは AddRange メソッドを使用します。

例

RemoveAt メソッドを使用して、Shape がフォームの ShapeCollection のメンバの場合に、これをフォームから削除する方法を次の例に示します。この例では、少なくとも 2 つの OvalShape コントロールがフォーム上にあることが必要です。

Private Sub OvalShape2_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles OvalShape2.Click
    Dim i As Integer
    ' Find the index for OvalShape1.
    i = OvalShape2.Parent.Shapes.GetChildIndex(OvalShape1, False)
    ' If the shape is not in the collection, display a message.
    If i = -1 Then
        MsgBox("OvalShape1 is not in this collection.")
    Else
        ' Remove the shape.
        OvalShape2.Parent.Shapes.RemoveAt(i)
    End If
End Sub

private void ovalShape2_Click(System.Object sender, System.EventArgs e)
{
    int i;
    // Find the index for OvalShape1.
    i = ovalShape2.Parent.Shapes.GetChildIndex(ovalShape1, false);
    // If the shape is not in the collection, display a message.
    if (i == -1)
    {
        MessageBox.Show("ovalShape1 is not in this collection.");
    }
    else
    {
        // Remove the shape.
        ovalShape2.Parent.Shapes.RemoveAt(i);
    }
}