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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

新建一个工程，在窗体上放一个ListBox控件，一个Image控件。
贴入下面的代码：Option ExplicitPrivate Sub Form_Load()
Dim strFile As StringstrFile = Dir("C:\windows\*.bmp")If strFile <> "" Then
   Do
   List1.AddItem strFile
   strFile = Dir
   Loop Until strFile = ""
End IfImage1.Stretch = True
End SubPrivate Sub List1_Click()
Image1.Picture = LoadPicture("C:\windows\" + List1.List(List1.ListIndex))
End Sub