(for + if +timer控件)循环显示图片

Question

 假设现在我的窗体上有四个Image控件,
 前面的三个已经加载了不同的图片(控件名分别是Image1,Image2,Image3) ,另外有一个Image4控件(没有图片)
 
 现在只能用timer控件 for语句 if语句 怎么让Image4控件,轮流显示Image1,Image2,Image3内容

Answer 1

Option ExplicitPrivate Sub Timer1_Timer()
    Static i As Long
    
    i = (i + 1) Mod 3
    Set Image4.Picture = Choose(i + 1, Image1, Image2, Image3).Picture
End Sub

Answer 2

Tiger_Zhao的方法可以实现,
大家还有其他的思路吗?

Answer 3

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

Answer 4

dim i as IntegerSub Show_Image4Pic(Index as Integer)
Select case Index
Case 1
  set Image4.Picture=Image1.Picture
Case 2
  set Image4.Picture=Image2.Picture
Case 0
  set Image4.Picture=Image3.Picture
End Select
End SubTimer1_Timer()
  i=(i+1) mod 3
  Show_Image4Pic i
End Sub
  

Answer 5

不好意思，应该将select case语句改成If ElseIf……End If语句就符合楼主要求了