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

[frgvip]

假设现在我的窗体上有四个Image控件,
前面的三个已经加载了不同的图片(控件名分别是Image1,Image2,Image3) ,另外有一个Image4控件(没有图片)

现在只能用timer控件 for语句 if语句 怎么让Image4控件,轮流显示Image1,Image2,Image3内容

[ivy999]

大概知道怎样写！

[Tiger_Zhao]

Option Explicit

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

[frgvip]

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

[贝隆]

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

[wocaogui120]

大哥，给个例子！

[sdrczht]

dim i as Integer

Sub 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 Sub

Timer1_Timer()
i=(i+1) mod 3
Show_Image4Pic i
End Sub

[sdrczht]

[Quote=引用 6 楼 sdrczht 的回复:]

dim i as Integer

Sub 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=Ima……
[/Quote]

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