-
vfp教程之VFP5中实现带图标列表项
在Windows95中打开“我的电脑”,可以看到窗口中每一项目的面前都有一个小图标,这些图标代表着项目的类型,如果是文件夹,就显示“文件夹”图标,如果是文本文件,就显示“记事本” 图标。在资源管理器中,也是如此。这种带图标的显示方式,非常直观,笔者经过摸索,在VFP50(Visual FoxPro 50)中也实现了这样的功能。具体实现如下:
1新建一表单,往其中添加一个列表框和一个命令按钮。
2列表框和命令按钮的属性设置如下:
控件名
属性
值
list1
ColumnCount 1
ColumWidths 60
IntegralHeight .T.
FontSize 10
RowSourceType 0(或1,不能为其他值)
RowSource 空
command1
Caption 演示
3命令按钮的Click事件代码如下:
&&往列表框中添加项目
ThisFormList1.List(1)=′MAIN.SCX′
ThisFormList1.List(2)=′FORM1.SCX′
ThisFormList1.List(3)=′DEMO1.DBF′
ThisFormList1.List(4)=′SALES.DBF′
ThisFormList1.List(5)=′TESTDATA.DBC′
ThisFormList1.List(6)=′MAIN.PRG′
ThisFormList1.List(7)=′MYFUNC.PRG′
ThisFormList1.List(8)=′SALES.FRX′
ThisFormList1.List(9)=′SS.FRX′
ThisFormList1.List(10)=′SALES.QPR′
N=ThisFormList1.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)也能达到同样效果。
1新建一表单,往其中添加一个列表框和一个命令按钮。
2列表框和命令按钮的属性设置如下:
控件名
属性
值
list1
ColumnCount 1
ColumWidths 60
IntegralHeight .T.
FontSize 10
RowSourceType 0(或1,不能为其他值)
RowSource 空
command1
Caption 演示
3命令按钮的Click事件代码如下:
&&往列表框中添加项目
ThisFormList1.List(1)=′MAIN.SCX′
ThisFormList1.List(2)=′FORM1.SCX′
ThisFormList1.List(3)=′DEMO1.DBF′
ThisFormList1.List(4)=′SALES.DBF′
ThisFormList1.List(5)=′TESTDATA.DBC′
ThisFormList1.List(6)=′MAIN.PRG′
ThisFormList1.List(7)=′MYFUNC.PRG′
ThisFormList1.List(8)=′SALES.FRX′
ThisFormList1.List(9)=′SS.FRX′
ThisFormList1.List(10)=′SALES.QPR′
N=ThisFormList1.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)也能达到同样效果。
最新更新
显示/隐藏Excel网格线
用NPOI操作EXCEL--锁定列
组合行、列
用NPOI操作EXCEL--设置密码
用NPOI操作EXCEL--调整表单显示比例
打印相关设置
用NPOI操作EXCEL--插入图片
用NPOI操作EXCEL--画Grid
用NPOI操作EXCEL--画圆形
用NPOI操作EXCEL--画矩形
MySql索引原理与使用大全
Mysql命令大全(完整版)
Mysql常用命令行大全
mysql 索引类型以及创建
mysql命令详解
mysql的下载和命令行简单操作
mysql常用管理命令
MySQL命令大全
mysql命令行登录容易出现的错误
解决mysql的cmd命令错误及2003连接错误
数据类型之对象
数据类型之布尔型、整型、浮点型和字符
php教程之数据类型之数组
php教程之PHP 常量
php教程之变量
php教程之语法
PHP简介与安装
phpMyAdmin配置安装全攻略
PHP是什么
win2003 iis整合php后 环境变量无法读取到