Picturebox骰子滾動（使圖片滾動看起來像骰子滾動）？

Question

我有一個計時器，滾動數字1-6並着陸在隨機的一個。問題是我有一個picturebox，我需要做同樣的事情。我有骰子的圖像，但我不知道如何滾動所有的骰子圖像，以匹配我下面的代碼。我想讓他們兩人都跑，所以他們匹配。我完全卡住了！

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
     m = m + 10 
     If m < 1000 Then 
      n = Int(1 + Rnd() * 6) 
      LblDice.Text = n 

     Else 
      Timer1.Enabled = False 
      m = 0 
     End If 


    End Sub 

    Private Sub RollDiceBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RollDiceBtn.Click 
     Timer1.Enabled = True 

     DisplayDie(die1PictureBox) 

    End Sub 

Answer 1

我不知道這是不是最好的解決辦法，但你可以把「滾動圖片」在一個ImageList與你想要的順序。然後用TimerTick中的計數器可以縮小imageList中的下一個圖像。

我發現這個代碼在我的電子郵件：

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick 
    If ticks < 11 Then 'I got 11 images 
     PictureBox1.BackgroundImage = ImageList1.Images(ticks) 
     ticks += 1 
    Else 
     ticks = 0 
     PictureBox1.BackgroundImage = ImageList1.Images(ticks) 
     ticks += 1 
    End If 
End Sub 

後評論： 您添加一個ImageList您Form.You正在爲您的圖像屬性的圖像列表（大小，深度）。在你的ImageList你爲你的骰子添加6張圖片。 然後你添加以下代碼：

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick 
    m = m + 1 
    If m < 10 Then 'How many ticks (rolls) do you like 
     n = Int(1 + Rnd() * 6) 
     Label1.Text = n 'The labels is showing your random number (dice number) 
     PictureBox1.Image = ImageList1.Images(n - 1) 'This is showing the dice image to the pictureBox:the same as the number 
     'I use n-1 because imageList is zero based. 
     'Important: my images are in the right order 1,2,3,4,5,6 in the imageList 
    Else 
     Timer1.Enabled = False 
     m = 0 
    End If 
End Sub 

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