円を描画するには? (ID：143167)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

現在、大学の課題でペイントソフトのようなプログラムを作っています。
でも、円を描画する機能をつけたいのですが、どうも出来ません。

MouseMoveの時に軌跡を残すのは、まだ難しいのでやらなくていいとの事。
教授曰く、DrawModeで0=消しゴム・1=鉛筆・2=丸と区別したらいいとおっしゃっていたのですが、それぞれの所にDim DrawMode As Integer = 1などと宣言しても出来ません。↓MouseDown・MouseMove・MouseUpの部分。

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        DrawFlag = True '旗を揚げる
        X = e.X
        Y = e.Y
    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If DrawFlag = True Then 'DrawMode = 1 & 
            p = New Pen(co, Cdw)
            'いまのXY座標を保存
            g.DrawLine(p, X, Y, e.X, e.Y)
            'PictureBoxを再描画する()
            ' PictureBox1.Invalidate()
            X = e.X : Y = e.Y
        End If
    End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        DrawFlag = False
        ' If DrawMode = 2 & DrawFlag = True Then
        'p = New Pen(co, Cdw)
        ' g.DrawEllipse(p, X, Y, e.X - X, e.Y - Y)
        'X = e.X : Y = e.Y
        ' g = PictureBox1.CreateGraphics
        ' End If
    End Sub

・・・最後のIf文を消しているのは、入れるとエラーが出るからです。
何が違うのでしょう…??

簡単に言えば、円を描くやり方を教えてはもらえないでしょうか??
お願いします。

←解決時は質問者本人がここをチェックしてください。

戻る