円形のフォームを作成する - VBレスキュー(花ちゃん) VS,VB.NET,VB2005,VB2008,VB2010,サンプル,Tips

★　円形のフォームを作成する
　

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'円形のフォームを作成する
'フォームの表示位置と大きさ(作成するフォームのサイズより大きめに）
Me.SetBounds(50, 50, 400, 400)
Dim myPath As New System.Drawing.Drawing2D.GraphicsPath
'GraphicsPath.AddEllipse メソッド
'現在のパスに楕円を追加します。
'楕円を定義する外接する四角形の(x, y, Width, Height)
'移動ができるようにタイトルバーを含めて作成(y の値を大きくすれば含まない）
myPath.AddEllipse(New Rectangle(20, 5, 300, 300))
Me.Region = New Region(myPath)
'円形のボタンを作成するのも同じです。
End Sub

円形のフォームを作成する (1個) (SNo.088)
使用コントロール	Form1　Button1
その他条件	WindowsXP(Vista)　Visual Basic 2005(VB2008)
★　円形のフォームを作成する　 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load '円形のフォームを作成する 'フォームの表示位置と大きさ(作成するフォームのサイズより大きめに） Me.SetBounds(50, 50, 400, 400) Dim myPath As New System.Drawing.Drawing2D.GraphicsPath 'GraphicsPath.AddEllipse メソッド '現在のパスに楕円を追加します。 '楕円を定義する外接する四角形の(x, y, Width, Height) '移動ができるようにタイトルバーを含めて作成(y の値を大きくすれば含まない） myPath.AddEllipse(New Rectangle(20, 5, 300, 300)) Me.Region = New Region(myPath) '円形のボタンを作成するのも同じです。 End Sub
実行結果