Dim x!
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
x = 0
End Sub
Private Sub Timer1_Timer()
x = (x + 1) Mod 5
Image2.piture = Image(x).Picture
End Sub
这是我写的代码 不知道为什么运行之后 不显图片
Dim x!Private Sub Form_Load()
x = 0
Timer1.Enabled = True
Timer1.Interval = 1000End Sub Private Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()x = 0End SubPrivate Sub Timer1_Timer()x = (x + 1) Mod 5Image2.Picture = Image1(x).PictureEnd Sub
