Question

VB如何幻灯片浏览某指定文件夹（只有图片文件）的图片。只需要按一下按钮，image控件就显示下一张图片

Answer 1

'总要先获取文件,再进行点击查看,把我测试的路径改成你指定的文件夹即可
Dim spt() As String

Private Sub Command1_Click() '获取指定文件夹里的所有文件
a = Dir("E:\影音娱乐\图形图像\背景类\", vbHidden + vbDirectory)
Do While a <> ""
If GetAttr("E:\影音娱乐\图形图像\背景类\" & a) <> vbDirectory Then
f = f & a & vbCrLf
End If
a = Dir
Loop
spt = Split(f, vbCrLf)
End Sub

Private Sub Command2_Click() '点击按钮依次查看下一个文件
Static i%
If i = UBound(spt) - 1 Then i = 0 '循环,就是看到最后一个再从头开始看
Image1.Picture = LoadPicture("E:\影音娱乐\图形图像\背景类\" & spt(i))
i = i + 1
End Sub

Answer 2

用File控件显示这个文件夹的文件
调用其Filename属性