极光下载站 - 打造齐全的绿色软件家园

极光下载站

当前位置: 首页 技术开发 程序开发 用VFP6.0编写图片浏览器

用VFP6.0编写图片浏览器

时间:2006/7/19 6:34:05 作者:佚名 人气:207

昨天好友拿来了一张盘,上面有很多漂亮的图片(由于前一阵那不争气的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 &&释放表单


  到此,这个浏览器就算完成了,希望它能给初学者一些启发。 
<
标签
分享到:

公众号