とりあえずピンの配置（ボウリングゲーム） (ID:142801)

名前

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

本文 う〜ん。これでいいとは思うのですが、エラーがでます。 Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint Dim gorinki(4) As Point gorinki(0) = New Point(10, 10) gorinki(1) = New Point(70, 60) gorinki(2) = New Point(130, 10) gorinki(3) = New Point(190, 60) gorinki(4) = New Point(250, 10) Dim hatacolor(4) As Pen hatacolor(0) = New Pen(Color.Blue, 3) hatacolor(1) = New Pen(Color.Yellow, 3) hatacolor(2) = New Pen(Color.Black, 3) hatacolor(3) = New Pen(Color.Green, 3) hatacolor(4) = New Pen(Color.Red, 3) Dim g As Graphics = e.Graphics g.Clear(Color.White) g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality Dim i As Integer For i = 0 To 4 g.DrawEllipse(hatacolor(0), gorinki(0), 100, 100) Next