做图片浏览器遇到的小问题，急救！！！！！！！！！！！！

[zhushizu]

怎么点一个按钮就可以浏览下一张图片？？

[qbilbo]

Picture1.Picture = LoadPicture("下一个图片文件名")

[zhushizu]

你可能没有理解，我说的是怎样找到下一个文件的文件名，你怎么知道下一个文件是什么呢？


知道现在这个文件，怎么知道下一个文件的文件名？？？？？？？？？？？

[online]

你还不如直接将一个目录下的所有图片显示出来,像acdsee
初始化数组,将图片的路径放入数组中
其余的在数组中操作就可以了

[zhushizu]

online(龙卷风）好方法，但小弟不才，要怎么做才能获得所有路径并放入数组呢？？？

[zhushizu]

谢谢风之兄！！

[qbilbo]

新建一个工程，在窗体上放一个ListBox控件，一个Image控件。
贴入下面的代码：

Option Explicit

Private Sub Form_Load()
Dim strFile As String

strFile = Dir("C:\windows\*.bmp")

If strFile <> "" Then
Do
List1.AddItem strFile
strFile = Dir
Loop Until strFile = ""
End If

Image1.Stretch = True
End Sub

Private Sub List1_Click()
Image1.Picture = LoadPicture("C:\windows\" + List1.List(List1.ListIndex))
End Sub