用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 &&释放表单
到此,这个浏览器就算完成了,希望它能给初学者一些启发。
相关视频
相关阅读 Visual Foxpro 6.0安装向导图文教程vfp应用程序开发教程教大家vfp类的创建和应用教程VFP编程方式向表单添加新控件实例教程什么是EVF取景器怎样vfp连接sql数据库巧将Excel建立的工作簿文件转成VFP成绩报表免费!微软VFP 9.0公测版6月有下载
热门文章 没有查询到任何记录。
最新文章
编程语言排行榜2020年android studio怎么删
eclipse怎么设置编码格式 eclipse设置编码格andriod studio如何使用真机测试 andriod sandroid studio怎么生成apk android studioandroid studio如何导入jar包 android stud
人气排行 安卓模拟器BlueStacks安装使用教程编程语言排行榜2020年9月 TIOBE编程语言排行eclipse字体大小怎么设置 eclipse字体大小plsql developer怎么连接数据库 plsql deveTomcat9.0安装教程 Tomcat9.0环境变量配置方plsql developer怎么使用 plsql developerVisual Studio 2015环境搭建教程Eclipse优化设置教程 Eclipse优化设置技巧
查看所有0条评论>>