文章导航PC6首页软件下载单机游戏安卓资源苹果资源

pc软件新闻网络操作系统办公工具编程服务器软件评测

安卓新闻资讯应用教程刷机教程安卓游戏攻略tv资讯深度阅读综合安卓评测

苹果ios资讯苹果手机越狱备份教程美化教程ios软件教程mac教程

单机游戏角色扮演即时战略动作射击棋牌游戏体育竞技模拟经营其它游戏游戏工具

网游cf活动dnf活动lol周免英雄lol礼包

手游最新动态手游评测手游活动新游预告手游问答

您的位置:首页资讯教程编程开发 → 用vf开发图片浏览器实例

用vf开发图片浏览器实例

时间:2011/1/17 18:09:12来源:本站原创作者:不详我要评论(0)

 用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

相关阅读 vfp应用程序开发教程教大家vfp类的创建和应用教程VFP编程方式向表单添加新控件实例教程什么是EVF取景器怎样vfp连接sql数据库巧将Excel建立的工作簿文件转成VFP成绩报表免费!微软VFP 9.0公测版6月有下载VFP与其他应用程序的集成

文章评论
发表评论

热门文章 TIOBE 2014年11月编程

最新文章 plsql developer怎么使plsql developer怎么连 visual studio最新版怎么安装eclipse字体大小怎么设置 eclipse字体大小Android Studio使用教程图文详解C#中正则表达式使用教程

人气排行 安卓模拟器BlueStacks安装使用教程php显示错误信息方法oracle查看实例名方法(带缩略图版)JS图片切换代码安装sql server 2000 序列号无法验证delphi odac安装方法讲解bat创建快捷方式技巧关于Delphi内存表的使用说明