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

名前

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

本文

こっちにも居ましたか。＾＾；
Listは難しいから、まず1番簡単なやつからやろうよ。
イメージファイルを使うと、もっと綺麗になるけど。
こんな感じで、どうですか？
’VisualBasic2008無料版
'PictureBox1をフォームに入れる
Option Strict On
Public Class Form1

Dim pin() As Integer = {135, 200, 100, 160, 170, 160, 65, 120, 135, 120, 205, 120, 30, 80, 100, 80, 170, 80, 240, 80}
    Dim myFont As Font = New Font("ui gothic", 20)

Public Sub New()

' この呼び出しは、Windows フォーム デザイナで必要です。
        InitializeComponent()

' InitializeComponent() 呼び出しの後で初期化を追加します。
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.BackColor = Color.Gray
        Me.Size = New Size(500, 700)
    End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        With PictureBox1
            .Size = New Size(300, 620)
            .BackColor = Color.Black
            .Location = New Point(20, 20)
        End With
    End Sub

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim g As Graphics = e.Graphics
        g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
        Dim i As Integer
        For i = 0 To 9
            g.FillEllipse(Brushes.White, pin(i * 2), pin(i * 2 + 1), 20, 30)
            g.FillEllipse(Brushes.White, pin(i * 2) - 5, pin(i * 2 + 1) + 20, 30, 50)
            g.DrawLine(Pens.Red, pin(i * 2) + 2, pin(i * 2 + 1) + 25, pin(i * 2) + 19, pin(i * 2 + 1) + 25)
            g.DrawLine(Pens.Red, pin(i * 2) + 2, pin(i * 2 + 1) + 22, pin(i * 2) + 19, pin(i * 2 + 1) + 22)
            g.DrawString(CStr(i), myFont, Brushes.Red, pin(i * 2) - 1, pin(i * 2 + 1) + 30)
        Next
    End Sub
End Class

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

戻る