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 = 那条终点线让我失望之后