SimpleShape.LocationChanged イベント

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

更新 : 2007 年 11 月

図形の Location プロパティが変更されると発生します。

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

構文

'宣言
<BrowsableAttribute(True)> _
Public Event LocationChanged As EventHandler
'使用
Dim instance As SimpleShape
Dim handler As EventHandler

AddHandler instance.LocationChanged, handler

[BrowsableAttribute(true)]
public event EventHandler LocationChanged

[BrowsableAttribute(true)]
public:
 event EventHandler^ LocationChanged {
    void add (EventHandler^ value);
    void remove (EventHandler^ value);
}

JScript では、イベントは使用できません。

解説

このイベントは、プログラムによる変更、またはユーザーとのやり取りのいずれかによって Location プロパティが変更された場合に発生します。

イベントの処理方法の詳細については、「イベントの利用」を参照してください。

例

イベントハンドラの中で LocationChanged イベントに応答する方法を次の例に示します。この例では、RectangleShape1 および RectangleShape2 という名前の 2 つの RectangleShape コントロールがフォーム上に配置されている必要があります。

Private Sub RectangleShape1_LocationChanged(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles RectangleShape1.LocationChanged
    ' If the second rectangle intersects with the first, move it.
    If RectangleShape1.ClientRectangle.IntersectsWith( _
      RectangleShape2.ClientRectangle) Then
        RectangleShape2.Location = New Point(RectangleShape1.Right, _
         RectangleShape1.Bottom)
    End If
End Sub

private void rectangleShape1_LocationChanged(object sender, System.EventArgs e)
{
    // If the second rectangle intersects with the first, move it.
    if (rectangleShape1.ClientRectangle.IntersectsWith(rectangleShape2.ClientRectangle))
    {
        rectangleShape2.Location = new Point(rectangleShape1.Right, 
            rectangleShape1.Bottom);
    }
}