3.円形のボタンを作成する(15_Btn_03) (旧、SampleNo.113) |
1.円形のボタンを作成する 2. 3. 4. 5. 6. 上記以外に、コントロール共通関係 のところやこれ以外のコントロールのところに書いてある場合もありますので、そちらの方もご覧ください。 |
下記プログラムコードに関する補足・注意事項 動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86 Option :[Compare Text] [Explicit On] [Infer On] [Strict On] Imports :追加なし 参照設定:追加なし その他 : : このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい) |
1.円形のボタンを作成する |
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'ボタンの表示位置と大きさ(作成するボタンのサイズより大きめに) With Button1 .SetBounds(140, 40, 100, 100) '.BackColor = Color.Red Using myPath As New System.Drawing.Drawing2D.GraphicsPath 'GraphicsPath.AddEllipse メソッド '現在のパスに楕円を追加します。 '楕円を定義する外接する四角形の(x, y, Width, Height) myPath.AddEllipse(New Rectangle(9, 9, 80, 80)) .Region = New Region(myPath) End Using End With End Sub 図1.上記実行結果 上記、円形以外にも多角形のボタンや画像の形のボタンや文字の形のボタン等も作成する事ができます。 |
2. |
3. |
4. |
5. |
6. |
検索キーワード及びサンプルコードの別名(機能名) |
多角形のボタン 画像の形のボタン 文字の形のボタン 色々な形のボタンコントロールを作成 色々な形のButtonを作成 |