-1
Public Class Form1
Private Sub tmrChangeImage_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrChangeImage.Tick

    Const intMAXIMAGES As Integer = 5
    Dim imgPictures(intMAXIMAGES - 1) As Image
    Dim intImage As Integer
    imgPictures(1) = My.Resources.ResourceManager.GetObject("flipbook_1_bio")
    imgPictures(2) = My.Resources.ResourceManager.GetObject("flipbook_2_bio")
    imgPictures(3) = My.Resources.ResourceManager.GetObject("flipbook_3_bio")
    imgPictures(4) = My.Resources.ResourceManager.GetObject("flipbook_4_bio")




    PictureBox.Image = Properties.Resources.flipbook__1__bio
    intImage = (intImage + 1) Mod intMAXIMAGES
End Sub
End Class

我的错误就在 PictureBox.Image = 那条终点线让我失望之后

4

1 回答 1

1
  1. You have declared intMAXIMAGES twice, once in the Dim statement and once in the Static statement.

  2. Do you mean PictureBox1 instead of PictureBox?

于 2013-10-01T20:26:29.257 回答