用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 ＆＆释放表单

到此，这个浏览器就算完成了，希望它能给初学者一些启发。

更多 0