当前位置：首页 -> 技术开发 -> 程序开发 -> VFP5中实现带图标列表项

VFP5中实现带图标列表项

时间： 2021-07-31 作者：daque

在windows9第5中学翻开“我的电脑”，不妨看到窗口中每一项手段眼前都有一个小图标，那些图标代办着项手段典型，即使是文献夹，就表露“文献夹”图标，即使是文本文献，就表露“登记本” 图标。在资源处置器中，也是如许。这种带图目标表露办法，特殊直觉，笔者过程探求，在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)也能到达同样功效。

VFP5中实现带图标列表项

相关推荐

推荐下载

热门阅览

最新排行