UC知道帮忙改个VB程序 多层图片依次显示~
来源：百度知道 编辑：UC知道 时间：2024/05/22 17:08:56
原程序如下：
Dim i As Integer
Private Sub Form_Load()
i = 1
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = (5*1000)
Picture1.Picture = LoadPicture("XX路径\" & i Mod 10 & ".jpg")
i = i + 1
If i > 10 Then i = i Mod 10
End Sub
改后希望实现功能： 能自动添加循环数量，例如，原本是十张图片，所以是1至10的循环，如果添加3张图片，能自动生成1至13的循环，而不用手动修改程序。
本人新人，望高手解释一下思路。谢了！~
Text1,把Text属性设置为10
如果添加了图片，不是还要手动修改Text的值么？
希望实现的是自动添加。
Dim i As Integer
Private Sub Form_Load()
i = 1
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = (5*1000)
Picture1.Picture = LoadPicture("XX路径\" & i Mod 10 & ".jpg")
i = i + 1
If i > 10 Then i = i Mod 10
End Sub
改后希望实现功能： 能自动添加循环数量，例如，原本是十张图片，所以是1至10的循环，如果添加3张图片，能自动生成1至13的循环，而不用手动修改程序。
本人新人，望高手解释一下思路。谢了！~
Text1,把Text属性设置为10
如果添加了图片，不是还要手动修改Text的值么？
希望实现的是自动添加。
那就在程序上加入一个TEXTBOX来输入图片总数（Text1,把Text属性设置为10）
Dim i As Integer, iCount As Long
Private Sub Form_Load()
i = 1
End Sub
Private Sub Timer1_Timer()
iCount = Val(Text1.Text)
Timer1.Interval = (5 * 1000)
Picture1.Picture = LoadPicture("XX路径\" & i Mod iCount & ".jpg")
i = i + 1
If i > 10 Then i = i Mod iCount
End Sub