VFP5中实现带图标列表项

在Windows95中打开“我的电脑”，可以在窗口中的每一项前看到一个小图标。这些图标代表项目的类型。如果是文件夹，将显示“文件夹”图标，如果是文本文件，将显示“记事本”图标。在资源管理器中，情况也是如此。这种带图标的显示方式非常直观，笔者经过摸索已经在VFP 50(Visual FoxPro 50)中实现了这一功能。实现如下:
1新建一个表单，并在其中添加一个列表框和一个命令按钮。
2列表框和命令按钮的属性设置如下:

控件名称
属性
值

1
column count 1
column width 60
integer height . t .
font size 10
row source type 0(或者1，不能是任何其他值)
rowsource空。

3个命令按钮的Click事件代码如下:
& & Add item
thisformlist 1 . list(1)= ' main . scx '
thisformlist 1 . list(2)= ' form 1 . scx '
thisformlist 1。list(3)= ' demo 1。DBF′
此表列表1。列表(4)= '销售。DBF′
此表列表1。list(5)= ' test data。DBC′
此表列表1。list(6)= ' MAIN。PRG '
this form list 1。list(7)= ' my func。PRG '
this form list 1。列表(8)= '销售。FRX′
此表列表1。list(9)= ' ss . frx '
thisformlist 1 . list(10)= ' sales . qpr '
n = thisformlist 1 . list count
for I = 1 to n
& &从后缀
ce extension = UPPER(RIGHT(ThisForm。List1.List(I)，3)
&&BMP文件在当前目录
do case
case co extension = " DBF "
this form . List 1 . picture(I)= " table . BMP "
case co extension = " PRG " this form .list 1 . Picture(I)=″apps . BMP ″
CASE x extension =″SCX ″
此表单。list 1 . Picture(I)=″forms . BMP ″
CASE extension =″DBC ″
this form。list 1 . Picture(I)=″database . BMP ″
CASE extension =″FRX ″
此表单。list 1 . Picture(I)=″report . BMP ″[/Br/]CASE ceextension =″QPR ″[/Br/]this form . list 1 . Picture(I)= " query . BMP "[/Br/]Other[/Br/]this form . list 1 . Picture(I)= " fox . BMP "[/Br/]end CASE[/Br/]end for[/Br/]。把列表框改成ComboBox也能达到同样的效果。