SimpleShape.DisplayRectangle プロパティ

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

更新 : 2007 年 11 月

図形の表示領域を表す四角形を取得します。

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

構文

'宣言
<BrowsableAttribute(False)> _
Public ReadOnly Property DisplayRectangle As Rectangle
'使用
Dim instance As SimpleShape
Dim value As Rectangle

value = instance.DisplayRectangle

[BrowsableAttribute(false)]
public Rectangle DisplayRectangle { get; }

[BrowsableAttribute(false)]
public:
property Rectangle DisplayRectangle {
    Rectangle get ();
}

public function get DisplayRectangle () : Rectangle

プロパティ値

型 : System.Drawing.Rectangle

図形の表示領域を表す Rectangle。

解説

SetBounds メソッドを呼び出して、DisplayRectangle プロパティを 1 回の操作で変更できます。

例

DisplayRectangle メソッドを使用して 2 つの図形がオーバーラップするかどうかを判断する方法を次の例に示します。この例では、OvalShape1 および OvalShape2 という名前の 2 つの OvalShape コントロールがフォームに配置されている必要があります。最適な結果を得るためには、コントロールをオーバーラップして配置します。

Private Sub OvalShape1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles OvalShape1.Click
    ' Get the DisplayRectangle for each OvalShape.
    Dim rect1 As Rectangle = OvalShape1.DisplayRectangle
    Dim rect2 As Rectangle = OvalShape2.DisplayRectangle
    ' If the DisplayRectangles intersect, move OvalShape2.
    If rect1.IntersectsWith(rect2) Then
        OvalShape2.SetBounds(rect1.Right, rect1.Bottom, _
          rect2.Width, rect2.Height)
    End If
End Sub

private void ovalShape1_Click(System.Object sender, System.EventArgs e)
{
    // Get the DisplayRectangle for each OvalShape.
    Rectangle rect1 = ovalShape1.DisplayRectangle;
    Rectangle rect2 = ovalShape2.DisplayRectangle;
    // If the DisplayRectangles intersect, move OvalShape2.
    if (rect1.IntersectsWith(rect2))
    {
        ovalShape2.SetBounds(rect1.Right, rect1.Bottom, rect2.Width, rect2.Height);
    }
}