VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 数据库 > Oracle教程 >
  • vfp教程之用VFP6.0编写图片浏览器

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


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

相关教程