Question

vb6.0 单击fileListBox控件指定图片内容，显示在image控件上

Answer 1

添加timer1控件，设置时间为5000毫秒，并设为true

timer事件里写

listbox1.listindex=listbox1.listindex+1

这样就行了~

Answer 2

我这个可以显示图片以及图片类型
Private
Sub
Combo1_Click()
File1.Pattern
=
Combo1.Text
End
Sub
Private
Sub
Dir1_Change()
File1.Path
=
Dir1.Path
End
Sub
Private
Sub
Drive1_Change()
Dir1.Path
=
Drive1.Drive
End
Sub
Private
Sub
File1_Click()
Dim
fpath
As
String
If
Right(File1.Path,
1)
<>
"\"
Then
fpath
=
File1.Path
+
"\"
Label5.Caption
=
fpath
+
File1.FileName
Image1.Picture
=
LoadPicture(Label5.Caption)
End
Sub
Private
Sub
Form_Load()
Combo1.AddItem
"*.bmp"
Combo1.AddItem
"*.ico"
Combo1.AddItem
"*.gif"
Combo1.AddItem
"*.jpg"
End
Sub
如果有疑问可以回复