用vf开发图片浏览器实例
设置各控件属性 (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
- 惠普EliteBook820G2如何一键重装win10系统一键装系统步骤
XP教程惠普EliteBook820G2如何一键重装win10系统一键装系统步骤
惠普EliteBook820G2如何一键重装win10系统一键重装系统是电脑小白的最佳选择。相较于传统的光盘安装法,一键重装展现出了更强的兼容性,适用于多数现代计算机设备。并且用户只需遵循指引步骤,即可绕过购买系统光盘、调整BIOS启动顺序
- 宏碁E1-410笔记本如何一键重装win10系统重装win10步骤
软件教程宏碁E1-410笔记本如何一键重装win10系统重装win10步骤
宏碁E1-410笔记本如何一键重装win10系统在日常使用中,宏碁E1-410笔记本可能会遇到系统故障、运行缓慢等问题,需要重装系统。面对网上众多的安装方法,用户们往往不知该如何选择。为此,我们推荐使用一键重装系统,这不仅是一种安全、可靠的
- 12-24XP教程惠普EliteBook820G2如何一键重装win10系统一键装系统步骤
- 12-24软件教程宏碁E1-410笔记本如何一键重装win10系统重装win10步骤
- 12-24其它教程惠普电脑如何重装win10系统(重装win10步骤)
- 12-24XP教程联想Miix5208GB如何一键重装win7系统(重装win7教程)
- 12-24HarmonyOS教程神舟战神Z7M-CT5GA如何一键重装win7系统(重装win7教程)
- 12-23Win10 教程海尔S410笔记本如何一键重装win10系统 一键装系统步骤
- 12-23电脑教程win10怎么一键重装(重装win10步骤)