Question

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的顺序）,可是按照这样写始终只加载第一张。求大神解决

Answer 1

没什么不同，&是字符串连接符号
app.path就是程序当前目录，如果程序是在磁盘根目录，那么app.path就是x:\（注意最后是有一个\的），如果程序不在磁盘根目录，那么app.path就是x:\path（注意最后没有\）

Answer 2

这个吗……首先，找到引用（在“工程”里），引用一个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

追问

图片都是存在的,不用判断是否存在

追答

那就把“If fso.FileExists(Form1.List1.List(i))=False Then Exit sub'确认图片存在”这一句去掉就够了。

Answer 3

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

追问

1370058225

追答

加了