VFP5中实现带图标列表项

来源：作者：出处：综艺读书 2006-10-13

关键词：效果 windows foxpro

在Windows95中打开“我的电脑”，可以看到窗口中每一项目的面前都有一个小图标，这些图标代表着项目的类型，如果是文件夹，就显示“文件夹”图标，如果是文本文件，就显示“记事本” 图标。在资源管理器中，也是如此。

这种带图标的显示方式，非常直观，笔者经过摸索，在VFP50(Visual FoxPro 50)中也实现了这样的功能。具体实现如下：
　　1新建一表单，往其中添加一个列表框和一个命令按钮。
　　2列表框和命令按钮的属性设置如下：

控件名
属性
值

list1
ColumnCount 1
ColumWidths 60
IntegralHeight .T.
FontSize 10
RowSourceType 0(或1，不能为其他值)
RowSource 空
command1
Caption 演示

　　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)也能达到同样效果。

进入讨论组讨论。

【收藏此文】【大中小】【打印】【关闭】

较早的文章：VFP 6 中文版安装向导捉虫记

较新的文章：VFP表跟踪实现方法

站内各频道最新更新文档

形形色色的台湾特产

怀念“黛玉”妹妹

·如何设置路由器
·照片合成处理软件
·RedHat6.2服务配置之Apache
·提升电脑性能的方法
·电脑无法正常启动的问题
·delphi两种方法使用xml文档
·证券行业交易平台解决方案
·三星人寿保险Sybase案例

·东软商业保险系统解决方案
·CSO向Sun平台应用移植解决..
·东软税务全面整体解决方案
·珠海国地税KILL安全系统案例
·友讯：D-Link助昆明市公安..
·江苏邮政票据打印机系统方案
·浪潮：云南国税备份系统案例
·CSS 标签属性

站内最新制作专题

·ACDSEE专题教程-下载使用
·迅雷专题教程-下载使用
·Windows XP频道
·Windows Vista频道
·Windows 2000频道
·win2003频道
·Freebsd频道
·Oracle频道

·Linux频道
·Windows频道
·邮件服务器专题
·协议大全
·数据恢复指南教程
·FreeBSD使用教程
·Linux数据库宝典
·Linux基础知识

热门关键字导读

Photoshop教程：照片处理照片制作 PS快捷键抠图
计算机故障：XP系统修复
艺术与设计：设计流媒体设计欣赏边框
计算机安全：ARP

站内频道文章精选

新闻资讯	电脑技巧
· 秘密:Vista隐蔽的动态屏保 · 腾讯开发新电子宠物--QQ熊 · 惠普否认2999元PC有价无货	· 驱逐Win系统“流氓”文件 · WinXP中获取未使用的IP地址 · 尝试format C:格式化硬盘？
操作系统	常用软件
· 在DOS下恢复回收站中的文件 · 拯救WinXP崩溃的救命稻草 · Linux系统中超级权限的应用	· 搜狗PK谷歌：谁能代言拼... · 昨日重现，一键GHOST轻松.. · 实现Web迅雷在空闲时杀毒
桌面开发	网络编程
· AVIFile函数制做AVI文件 · VC中链接动态链接库的方法 · 熊猫烧香核心源码(Delphi)	· DateDiff函数祥解 · JavaScript去除空格的三种 · js效果图片加载进度实时..
数据库	图像处理
· SQL Server数据库优化方案 · Oracle的初学者入门心得 · JSP连接Mysql数据库	· Photoshop为美女做艺术处理 · 用Freehand创建发光字特效 · 设计自己的个性QQ动态表情

百度推荐，商机无限

搜索您感兴趣的内容