微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题VFP 5.0中实现带图标列表项
栏目网络应用
作者王俊
发布1998年第20期13版
  在Windows95中打开“我的电脑”,可以看到窗口中每一项目的面前都有一个小图标,这些图标代表着项目的类型,如果是文件夹,就显示“文件夹”图标,如果是文本文件,就显示“记事本” 图标。在资源管理器中,也是如此。这种带图标的显示方式,非常直观,笔者经过摸索,在VFP5.0(Visual FoxPro 5.0)中也实现了这样的功能。具体实现如下:
  1.新建一表单,往其中添加一个列表框和一个命令按钮。
  2.列表框和命令按钮的属性设置如下:


  3.命令按钮的Click事件代码如下:
  &&往列表框中添加项目
  ThisForm.List1.List(1)='MAIN.SCX'
  ThisForm.List1.List(2)='FORM1.SCX'
  ThisForm.List1.List(3)='DEMO1.DBF'
  ThisForm.List1.List(4)='SALES.DBF'
  ThisForm.List1.List(5)='TESTDATA.DBC'
  ThisForm.List1.List(6)='MAIN.PRG'
  ThisForm.List1.List(7)='MYFUNC.PRG'
  ThisForm.List1.List(8)='SALES.FRX'
  ThisForm.List1.List(9)='SS.FRX'
  ThisForm.List1.List(10)='SALES.QPR'
  N=ThisForm.List1.ListCount
  FOR i=1 TO N
  &&从后缀名判断类型
  cExtension=UPPER(RIGHT(ThisForm.List1.List(I),3))
  &&bmp文件在当前目录下
  DO CASE
  CASE cExtension="DBF"
  ThisForm.List1.Picture(I)="table.bmp"
  CASE cExtension="PRG"
  ThisForm.List1.Picture(I)="apps.bmp"
  CASE cExtension="SCX"
  ThisForm.List1.Picture(I)="forms.bmp"
  CASE cExtension="DBC"
  ThisForm.List1.Picture(I)="database.bmp"
  CASE cExtension="FRX"
  ThisForm.List1.Picture(I)="report.bmp"
  CASE cExtension="QPR"
  ThisForm.List1.Picture(I)="query.bmp"
  OTHERWISE
  ThisForm.List1.Picture(I)="fox.bmp"
  ENDCASE
  ENDFOR
  执行的结果是在每一项目前都有与项目类型对应的图标。将列表框换成组合框(ComboBox)也能达到同样效果。