投稿者 初級者A  (社会人) 投稿日時 2009/1/22 04:53:24
第11回 「メソッドをつくる」でつまづいています

Dim CircleX As Integer = 150
Dim CircleY As Integer = 100 
Private Sub btnLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLeft.Click

    CircleX -= 5

    DrawCircle(CircleX, CircleY)

End Sub
 
Private Sub btnRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRight.Click

    CircleX += 5

    DrawCircle(CircleX, CircleY)
※ここの部分ですが、引数がX,Yではない理由が理解できません。

※ DrawCircle(X, Y)ではダメなのでしょうか?

End Sub
 
Private Sub DrawCircle(ByVal X As Integer, ByVal Y As Integer)
※DrawCircleメソッドの引数がx、yになっているのでそう思ったのですが
 ちがのでしょうか?
    Dim g As Graphics = Me.CreateGraphics

    Dim b As New Drawing2D.LinearGradientBrush(New Point(X, Y), New Point(X + 50, Y + 50), Color.Yellow, Color.LightBlue)

    g.Clear(Color.Black)
    g.FillEllipse(b, X, Y, 50, 50)

End Sub
 よろしくお願いします。