用vf开发图片浏览器实例
用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 &&释放表单
到此,这个浏览器就算完成了,希望它能给初学者一些启发。
文章标题:用vf开发图片浏览器实例
文章链接:http://xiazai.zol.com.cn/jiqiao/50292.html
为给用户提供更多有价值信息,ZOL下载站整理发布,如果有侵权请联系删除,转载请保留出处。
- 上一问:图片pdf转换器下载地址
- 下一问:应用软件软件有哪些 最新应用软件软件排行榜
相关软件推荐
其他类似技巧
- 2024-09-08 14:57:01应用软件软件有哪些 最新应用软件软件排行榜
- 2022-03-24 16:51:50用vf开发图片浏览器实例
- 2015-03-09 19:41:31图片pdf转换器下载地址
图片PDF转换器软件简介
图片PDF转换器能够实现任意图片转换为PDF文件。图片PDF转换器支持各种常用图片格式:BMP、WBMP、JPEG、PNG、TIF、GIF、PSD、ICO、PCX、TGA、JP2等。界面简单实用,用户操作方便,只需几步就能够制作出自己的PDF文件。 更新内容: 1、支持数码相机原始格式照片。 2、增加图片旋转功能。 3、增加拼图功能。... 详细介绍»