china.com
主页
新闻
体育
游戏
文化
教育
健康
财经
科技
旅游
军事
娱乐
商贸
  科技动态 硬件广场 下载基地 网络教室 网络冲浪 科学博览 移动时代 手机上网 桌面壁纸 科技商情  


用VFP6.0编写图片浏览器

2000-08-14 16:30:52

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

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

  摘自《赛迪网》 伏晔/文

404 Not Found

404 Not Found


nginx


科技检索


中华网推荐

  • 1000名医生在线咨询

  • 中国足球队官方网站

  • 鸦片玫瑰(新版)

  • 精选股票天地

  • 闪光的flash教程

  • 中华网汽车世界

  • 为你的爱情出谋划策

  • 网文精选——野百合集

  • 世界文化遗产在中国

  • 历届香港小姐风姿集




  • 网络教室编辑信箱
    版权声明 | 本站检索 | 联系方法 | 刊登广告 | 使用说明 | 关于中华网 | 豁免条款

    版权所有 中华网