RectangleShape.CornerRadius プロパティ

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

更新 : 2007 年 11 月

角が丸い四角形および角が丸い正方形の、角の半径を取得または設定します。

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

構文

'宣言
<BrowsableAttribute(True)> _
Public Property CornerRadius As Integer
'使用
Dim instance As RectangleShape
Dim value As Integer

value = instance.CornerRadius

instance.CornerRadius = value

[BrowsableAttribute(true)]
public int CornerRadius { get; set; }

[BrowsableAttribute(true)]
public:
property int CornerRadius {
    int get ();
    void set (int value);
}

public function get CornerRadius () : int
public function set CornerRadius (value : int)

プロパティ値

型 : System.Int32

半径を表す Integer。既定値は 0 (半径なし) です。

解説

CornerRadius の最小値は 0 です。この場合、四角形や正方形の角は丸くなりません。最大値は、RectangleShape の高さまたは幅 (いずれか小さい方) を 2 で割った値です。正方形の場合、最大値を使用すると円になります。

例

RectangleShape をクリックしたときに RectangleShape の CornerRadius を変更する例を次に示します。この例では、RectangleShape1 という名前の RectangleShape がフォームにあることが必要です。

Private Sub RectangleShape1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles RectangleShape1.Click
    Dim max As Integer
    ' Calculate the maximum radius.
    max = Math.Min(RectangleShape1.Height, RectangleShape1.Width) / 2
    ' Check whether the maximum radius has been reached.
    If RectangleShape1.CornerRadius = max Then
        ' Reset the radius to 0.
        RectangleShape1.CornerRadius = 0
    Else
        ' Increase the radius.
        RectangleShape1.CornerRadius = _
          RectangleShape1.CornerRadius + 15
    End If
End Sub

private void rectangleShape1_Click(System.Object sender, System.EventArgs e)
{
    int max;
    // Calculate the maximum radius.
    max = Math.Min(rectangleShape1.Height, rectangleShape1.Width) / 2;
    // Check whether the maximum radius has been reached.
    if (rectangleShape1.CornerRadius == max)
    // Reset the radius to 0.
    {
        rectangleShape1.CornerRadius = 0;
    }
    else
    {
        // Increase the radius.
        rectangleShape1.CornerRadius = rectangleShape1.CornerRadius + 15;
    }
}