[求助]关于图形浏览的问题，在线等待

Question

求助各位大虾们，小弟遇到一个小问题，麻烦各位~
怎样实现像ACDSee一样，单击“下一张”按钮浏览下一张图片的功能？
请赐教！谢谢

Answer 1

简单的办法：
在窗体上绘制一个File1控件，（如果你嫌它碍事可以设为不可见或用什么东西挡住）
File1自动获取当前目录下的文件列表
剩下的事情就是单击下一张时调用当前File1.ListIndex以下的项目的FileName，断扩展名，是否为图片，最好在试着LoadPicture看看是否出错（加错误处理，确定是否为可以处理的图片）若不成功继续移动向File1的下一个列表项目，最后返回File1的第一项。

Answer 2

Option ExplicitDim Indx As LongPrivate Sub cmdNext_Click()
    Indx = Indx + 1
    If Indx = File1.ListCount Then Indx = 0
    picture1.Picture = LoadPicture(File1.List(Indx))
End SubPrivate Sub Form_Load()
    Indx = 0
    File1.Pattern = "*.jpg"
End Sub