C# と VB.NET の質問掲示板

いつもこの掲示板を参考にさせていただいております。

今回初めて質問させていただきます。

XP:VB.NET2008 で開発しています。
 
現在、コマンドボタンの形状を変えようとして四苦八苦しています。

必要なのは○、扇形、四角形の一辺だけ曲線になっているような形（何形と言うのかわかりません）

以上３つを作ろうとしています。

いつもこの掲示板を参考にさせていただいております。

今回初めて質問させていただきます。


XP:VB.NET2008 で開発しています。
 
現在、コマンドボタンの形状を変えようとして四苦八苦しています。

必要なのは○、扇形、四角形の一辺だけ曲線になっているような形（何形と言うのかわかりません）

以上３つを作ろうとしています。

この掲示板の過去ログ
No55154：ボタンコントロールの形状変更

を参考にし、まずは○、扇形を作成しました。

ただ、このままではボタンの外周に線が引かれないため、
DrawLineやDrawEllipseで線を引けばいいやと思いやってみたのですがうまくいきません。

現状のソース抜粋

Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With btnTest 'テスト用ボタンコントロール

            .BackColor = Color.White

            'ボタンを○に
            Dim myPath As New System.Drawing.Drawing2D.GraphicsPath
            myPath.AddEllipse(New Rectangle(9, 9, 40, 40))
            .Region = New Region(myPath)

            '境界に線を引きたい(失敗)
            Dim g As Graphics = .CreateGraphics()
            g.DrawEllipse(New Rectangle(Pens.Black,10, 10, 39, 39))
            g.DrawLine(Pens.Black, 0, 0, 100, 100) '直線は引ける？

            g.Dispose()

        End With
    End Sub

GraphicsPathで設定すべきなんでしょうか？
面倒なのでフォーム上に線を引いてしまおうかとも思ったのですが…う〜ん

よろしくお願いします。

■No58057 (YSK さん) に返信

buttonのPaintイベントを使用してこんな感じ

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        With Button1 'テスト用ボタンコントロール

            .BackColor = Color.White
            .FlatStyle = FlatStyle.Flat

            'ボタンを○に
            Dim myPath As New System.Drawing.Drawing2D.GraphicsPath
            myPath.AddEllipse(New Rectangle(9, 9, 40, 40))
            .Region = New Region(myPath)

        End With

    End Sub

    Private Sub Button1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint
        Dim g = e.Graphics
        g.DrawEllipse(Pens.Black, New Rectangle(10, 10, 38, 38))
    End Sub