画面のスクロール (ID:146160)

名前

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

本文

配列は難しいですか？
1番簡単な配列で良いとおもいますよ。
動けば良いのです。
Public Class Form1
    '星の数
    Const hosi_kazu As Integer = 100
    '星の横位置
    Dim hosi_x(hosi_kazu - 1) As Integer
    '星の縦位置
    Dim hosi_y(hosi_kazu - 1) As Integer
    '星のサイズ
    Dim hosi_size(hosi_kazu - 1) As Integer
    '星の色
    Dim hosi_color(hosi_kazu - 1) As Integer
    '星のスピード
    Dim hosi_speed(hosi_kazu - 1) As Integer
    '__
    Dim obamaRandom As System.Random
    '色の数
    Const iro_kazu As Integer = 10 '10色
    Dim iro(iro_kazu - 1) As Brush

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'システムカラーを配列に格納
        iro(0) = Brushes.Blue : iro(1) = Brushes.White
        iro(2) = Brushes.Yellow : iro(3) = Brushes.YellowGreen
        iro(4) = Brushes.Green : iro(5) = Brushes.Aqua
        iro(6) = Brushes.Pink : iro(7) = Brushes.Orange
        iro(8) = Brushes.Gold : iro(9) = Brushes.Lime
        '__
        Me.Size = New Size(510, 530)
        PictureBox1.Size = New Size(500, 500)
        PictureBox1.Location = New Point(0, 0)
        PictureBox1.BackColor = Color.Black
        obamaRandom = New System.Random()
        For i As Integer = 0 To hosi_kazu - 1
            hosi_x(i) = obamaRandom.Next(500)
            hosi_y(i) = obamaRandom.Next(500)
            hosi_size(i) = obamaRandom.Next(2, 10)
            hosi_color(i) = obamaRandom.Next(iro_kazu)
            hosi_speed(i) = obamaRandom.Next(1, 4)
        Next
        Timer1.Interval = 100
        Timer1.Start()
    End Sub

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        For i As Integer = 0 To hosi_kazu - 1
            e.Graphics.FillEllipse(iro(hosi_color(i)), hosi_x(i), hosi_y(i), hosi_size(i), hosi_size(i))
        Next
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i As Integer = 0 To hosi_kazu - 1
            hosi_y(i) += hosi_speed(i)
            If hosi_y(i) > 490 Then
                hosi_y(i) = 0
                hosi_x(i) = obamaRandom.Next(500)
                hosi_color(i) = obamaRandom.Next(iro_kazu)
            End If
        Next
        PictureBox1.Invalidate()
    End Sub
End Class

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

戻る