Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
第11回 メソッドをつくるでつまづいています。
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=257#CommentId1789
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
初級者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
よろしくお願いします。