画面のスクロール (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