设定一个打开按纽，一个PICTUREBOX，现在已经实现了通过按钮打开图象，有谁知道怎样再通过另外两个按钮分别实现打开前一幅图象和后一幅图象吗？谢谢各位高手鼎力相助，我调试了好半天都没能实现。

你要有一个对象来保存先前的图象和后一副图象啊,或者你获取那个DIRECTORY中的所有的FILEINFO,判断它们的文件类型,然后对它们进行排序,再用一个ARRAYLIST来存储之也可以呀,或者你要使用临时读取的也都可以的啊?

昨天好友拿来了一张盘，上面有很多漂亮的图片（由于前一阵那不争气的Win 98又崩溃了，只好重装了系统，所以没有看图软件和相应的安装盘），但一张一张地看实在太麻烦了，于是自己用Visual FoxPro 6.0编写了个图片浏览器。使用后感觉还不错，不敢独享，拿出来与大家分享。

　　设置各控件属性

　　(1)设置Form的Caption属性为“自制浏览器”。BorderStyle的属性设为2，禁止调整表单。设MaxButton的属性为.F.，使表单不能最大化。

　　(2)设置List的IntegralHeigh属性设为.T.，使List能自动重新调整，以显示所有的文本部分。设MultiSelect为.T.，能够使用户对文件进行多重选项。设RowSource为＊.bmp，指定列表框中数据初始值的源为BMP文件。设RowSourceType的值为7，指定List的数据源为文件。 　　 (3)设置Label1的Caption属性为“文件类型：”。将Fontsize设为15。

　　(4)设置Combo1的RowSource属性为“＊.bmp,＊.cur,＊.icq,＊.jpg"，表示它所支持的图像文件类型。将RowSourceType设为1，设数据源为值。Style的值为2，使用户只能从下拉框中选择文件类型。使其Value为＊.bmp，初始文件类型为BMP文件。

　　(5)设置Container的SpecialEffect值为0，以便镶在里面的图像有立体感。

　　(6)设置Image的Stretch为1，使任何大小的图片都能以相同的比例显示。 　　注：Image是镶嵌在Container中的。

　　(7)设置Shape的BackColor的值为64，0，64。 　　注：Shape是放在Image上面的。 　　(8)设置两个Command的Caption分别为“清屏”和“退出”。 　

　添加代码 　　

(1)FORM的代码 　　PROCEDURE Form.Init 　　 c=Home()＆＆把当前VFP目录的默认值给变量c 　　 If File(c＋″\NUL″) ＆＆以当前VFP目录为起始 　　 CD (c) `　　　　＆＆进入此目录 　　 This.List1.Requery ＆＆保持List的内容不断刷新 　　 EndIf 　　(2)LIST的代码 　　 PROCEDURE List.InteractiveChange 　　 　　 s=Upper(This.List(This.ListIndex)) 　　 ＆＆记录改变后的目录中的文件 　　 CD This.List(2) 　　 IF″.BMP″＄S.OR.″.ICO″＄S.OR. 　　　　　　　　　　　　 ″.JPG″＄S.OR.″.CUR″＄S 　　 ThisForm.Image1.Picture=This.List(2)＋s 　　 ＆＆如果文件包含这四个扩展名,则显示。 　　 ThisForm.Shape1.Visible=.F. 　　EndIf 　　

(3)Combo1的代码 　　 PROCEDURE Combo1.Init 　　　　

This.ListIndex=1 ＆＆选定数据项的索引 　　 PROCEDURE Combo1.InteractiveChange 　　 ThisForm.List1.RowSource=This.Value 　　　　　　

＆＆指定List所显示的文件类型为当 　　 　　前Combo1的Value中的类型 　　　　 ThisForm.List1.Requery 　　 ＆＆使List的内容不断更新 　

　(4)Command1的代码 　　 PROCEDURE Command1.Click 　　　　ThisForm.Image1.Picture=′ ′ 　　 ＆＆取消图片路径，实现清屏 　　　　ThisForm.Shape1.Visible=.T. 　　

(5)Command2的代码 　　 PROCEDURE Ccommand2.Click 　　　　Rele ThisForm ＆＆释放表单 　　

到此，这个浏览器就算完成了，希望它能给初学者一些启发。 这个是在网上搜索的 从注释来看， 和楼上说的差不多！

这个东西在实现上是很简单的事情,
而且想到也是很简单的啊,看样子你对.NET的库类还不够了解啊?没事干多看看.NET的文档吧~~