ピクチャー
解決たびたびすみません。
Button1がクリックされると、５０回にわたり、次から次へとFrom2にある画像が変化していくプログラムですが変化しません。何故でしょうか？
Intervalは100にしております。
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
a(0) = 0
For j = 0 To 50
Randomize()
a(0) = Int(Rnd() * 5)
Select Case a(0)
Case 0
PictureBox1.Image = Form2.PictureBox1.Image
Case 1
PictureBox1.Image = Form2.PictureBox2.Image
Case 2
PictureBox1.Image = Form2.PictureBox3.Image
Case 3
PictureBox1.Image = Form2.PictureBox4.Image
Case 4
PictureBox1.Image = Form2.PictureBox5.Image
Case 5
PictureBox1.Image = Form2.PictureBox6.Image
End Select
Next j
Timer1.Stop()
End Sub
下記に直したら解決はしたのですが、よくみていると、
Form2.PictureBox1.Imageの画像をA、Form2.PictureBox2.Imageの画像をB…とすると、C→B→D…としたいところが、C→B→何もなし→Dとこのように空白が時々入ります。空白が入らないようにするにはどのようにしたら良いですか？
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Randomize()
a(0) = Int(Rnd() * 5)
Select Case a(0)
Case 0
PictureBox1.Image = Form2.PictureBox1.Image
Case 1
PictureBox1.Image = Form2.PictureBox2.Image
Case 2
PictureBox1.Image = Form2.PictureBox3.Image
Case 3
PictureBox1.Image = Form2.PictureBox4.Image
Case 4
PictureBox1.Image = Form2.PictureBox5.Image
Case 5
PictureBox1.Image = Form2.PictureBox6.Image
End Select
' Timer1.Stop()
End Sub
画像を再読み込みしたら解決しました。
| ツイート |  |