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

名前

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

本文

＞星の描かれたPicutreBoxを用意して，それを移動させるのではだめですか

この方法でやってみました。スクロールがややスムーズでありませんが
いちおうできました。また、アドバイスお願いします

Public Class Form1
    
    Dim rnd As Random = New Random() '乱数の宣言 
    Dim x As Integer, y As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.BackColor = Color.Black 'Form1の背景を黒くする

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.Top += 5 'PictureBox1を下に移動
        PictureBox1.Invalidate()
        If PictureBox1.Top > Me.Height Then PictureBox1.Top = 0

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = Not Timer1.Enabled

End Sub

Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        For i As Integer = 0 To 99 '星を描く

x = rnd.Next(639)
            y = rnd.Next(479)

Select Case rnd.Next(4)
                Case 0
                    e.Graphics.FillRectangle(New SolidBrush(Color.LimeGreen), x, y, 2, 2)
                Case 1
                    e.Graphics.FillRectangle(New SolidBrush(Color.White), x, y, 2, 2)
                Case 2
                    e.Graphics.FillRectangle(New SolidBrush(Color.Red), x, y, 2, 2)

End Select

Next
    End Sub
End Class

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

戻る