Question

怎么按顺序用timer播放图片

就是有40张图片 然后要逐一按顺序播放 然后还有 怎么用command2放大缩小图片？这样？
Private Sub Command2_Click()
Image2.Height = Image2.Height *1.1
End Sub

Private Sub Command1_Click()
Image2.Picture = Image1(Int(Rnd * 41)).Picture
End Sub

Private Sub Form_Load()

Dim i
Randomize
For i = 0 To 40
Image1(i).Visible = False
Next i
End Sub

Answer 1

Private Sub Command2_Click()
Static a As Integer //定义为全局变量的意思
Static b As Integer
a = a + 1
b = b + 1
Image1.Height = Image1.Height * a
Image1.Width = Image1.Width * b
End Sub
//a=b时可以实现等比缩放，a不等于b时可以实现纵或横的拉伸
或者在前面加上imagel.stretch=true //使图片自动填充为图相框的宽高

Private Sub Timer1_Timer()
static i as Integer //将i定义为静态的，以便保留其值，不断累加，否则的话会每次都初始化为1，而永远只显示第一张图片。当然，你也可以在窗体的“通用”里定义这个变量i并初始化为1
Image1(i).Visible = True
i = i + 1
if i>40 Then Timer1.Enabled=false //这里加一个判断语句（当i>40时让Timer1失效）
End Sub

希望能帮到你哦