とりあえずピンの配置（ボウリングゲーム） (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