VB6关于image加载图片的问题

Private Sub Form_Load()
Dim b As Integer
Dim c As String
b = 0
Show
Image1.Width = Form2.Width
Image1.Height = Form2.Height
tmd = 0
Timer1.Interval = 1
Timer2.Interval = 3000
Timer3.Enabled = False
Timer3.Interval = 1
SetWindowLong hwnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, tmd, LWA_ALPHA
End Sub
Private Sub Timer1_Timer()
If tmd = 0 Then
c = Form1.List1.List(b)
Image1.Picture = LoadPicture(c)
End If
tmd = tmd + 3
SetLayeredWindowAttributes hwnd, 0, tmd, LWA_ALPHA
If tmd = 255 Then
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
Timer3.Enabled = True
End Sub
Private Sub Timer3_Timer()
tmd = tmd - 3
SetLayeredWindowAttributes hwnd, 0, tmd, LWA_ALPHA
If tmd = 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
If b <= Form1.List1.ListCount - 1 Then
b = b + 1
Else
If Form1.Check1.Value = vbChecked Then
b = b - 1
Else
Unload Me
End If
End If
Timer3.Enabled = False
End If
End Sub
这是部分的代码
我想用form2里的image1按顺序加载form1 list1里的图片路径（按照index 0 1 2 3 4的顺序）,可是按照这样写始终只加载第一张。求大神解决

留个Q我给你远程演示吧，跟你说了你也听不进去

这个吗……首先，找到引用（在“工程”里），引用一个Microsoft Scripting runtime。 然后呢， 代码如下。 Private sub Timer1_Timer Dim fso As New FileSystemObject Static i As integer If fso.FileExists(Form1.List1.List(i))=False Then Exit sub'确认图片存在 Image1.Picture=LoadPicture(Form1.List1.List(i)) i=i+1 If i>=Form1.List1.ListCount Then Timer1.Enabled=False'都显示完了就停止 End sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息