请问:小弟我的file1中有71个图片文件名,运行下面程序时,为什么只显示前27张后就不再显示?多谢
请教:我的file1中有71个图片文件名,运行下面程序时,为什么只显示前27张后就不再显示?谢谢。
------解决方案--------------------
Private Sub Timer1_Timer()
For i = 0 To File1.ListCount - 1
Picture1(i).Left = Picture1(i).Left - 100
Next
End Sub
- VB code
Dim i% Private Sub Form_Load() Me.WindowState = 2 Me.Timer1.Interval = 10 File1.Path = "E:\360data\重要数据\我的文档\我的图片" For i = 1 To File1.ListCount - 1 Load Picture1(i) Picture1(i).Visible = True Picture1(i).Picture = LoadPicture(File1.Path & "\" & File1.List(i)) Picture1(i).Move i * Picture1(0).Width, Picture1(0).Top Next End Sub Private Sub Timer1_Timer() For i = 0 To File1.ListCount - 1 Picture1(i).Left = Picture1(i).Left - 100 Next End Sub
------解决方案--------------------
Private Sub Timer1_Timer()
For i = 0 To File1.ListCount - 1
Picture1(i).Left = Picture1(i).Left - 100
Next
End Sub