５．円形のフォームを作成する(34_Frm_05)　(旧、SampleNo.088)

１．円形のフォームを作成する(34_Frm_05) ２． ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

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

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click     Me.Close() End Sub Private Sub Form1_Load(sender As Object, e As 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 　図１．上記実行結果

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

円形のFormを作成　変形のForm