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

名前

ホームページ(ブログ、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 w As Integer = 100
        Dim h As Integer = 100

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(i), gorinki(i).X, gorinki(i).Y, w, h)

End Sub

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

戻る