总结:listview获取系统目录和图标的两种写法

popdes

如题:
功能比较简单, 写给自己 与 自己一样的新人.
功能: 获取系统目录和图标,显示在listview

本来是想能不能显示到listbox控件里, 但是发现listbox是没有imagelist属性的,
Jacen发的有个用treeview树形控件实现explore的代码, 于是想能不能移植到listview中....
昨晚弄了一晚,奈何技术不行,也没弄出个所以然来. 后面慢慢实验, 如果移植出来了也分享出来, 先总结个最基础的代码...

1. import win.ui;
   
2. /*DSG{{*/
   
3. var winform = win.form(text="listview获取系统图标列表";right=783;bottom=583;bgcolor=12213772;parent=...)
   
4. winform.add(
   
5. listview={cls="listview";left=16;top=110;right=373;bottom=556;db=1;dl=1;dr=1;dt=1;edge=1;vscroll=1;z=1};
   
6. listview2={cls="listview";left=407;top=109;right=764;bottom=555;db=1;dl=1;dr=1;dt=1;edge=1;vscroll=1;z=2};
   
7. static={cls="static";text="方式一";left=24;top=64;right=214;bottom=97;color=16777215;font=LOGFONT(h=-29);transparent=1;z=3};
   
8. static2={cls="static";text="方式二";left=411;top=71;right=601;bottom=104;color=16777215;font=LOGFONT(h=-29);transparent=1;z=4}
   
9. )
   
10. /*}}*/
    
11. 
    
12. import fsys;
    
13. import fsys.lnk;
    
14. import fsys.info;
    
15. //获取系统图标列表
    
16. 
    
17. //移除列标题
    
18. winform.listview.modifyStyle(,0x4000/*_LVS_NOCOLUMNHEADER*/)
    
19. winform.listview.insertColumn("1",-1)
    
20. winform.listview2.modifyStyle(,0x4000/*_LVS_NOCOLUMNHEADER*/)
    
21. winform.listview2.insertColumn("1",-1)   
    
22. //win.ui.explorer
    
23. import win.imageList;
    
24. shImageList = win.imageList.shell( 0/*_SHIL_LARGE*/  )
    
25. winform.listview.setImageList( shImageList,1/*_LVSIL_NORMAL*/ )
    
26. winform.listview2.setImageList( shImageList,1/*_LVSIL_NORMAL*/ )
    
27. 
    
28. //方式一
    
29. files,,dirs = ..fsys.list("C:\Users\Administrator\Desktop");
    
30. var filename;
    
31. var getInfo = ..fsys.info.get;
    
32. var toUnicode = ..string.toUtf16;
    
33. for(i=1;#files){
    
34.                 filename = files[i];
    
35.                 var sfi = getInfo(files[filename]    ,0x10/*_SHGFI_USEFILEATTRIBUTES*/ | 0x4000/*_SHGFI_SYSICONINDEX*/);
    
36.                 winform.listview.addItem( {
    
37.                             text = toUnicode(filename);
    
38.                             iImage = sfi.iIcon;
    
39.                     } )
    
40.                }
    
41. 
    
42. 
    
43. //方式二
    
44. var lnk = fsys.lnk();
    
45. fsys.enum( fsys.getSpecial(0 /*_CSIDL_DESKTOP*/ ) , "*.*",
    
46.         function(dir,filename,fullpath,findData){
    
47.                 if(filename){
    
48.                   // lnk.load(fullpath);//加载快捷方式
    
49.                    //console.log("快捷方式："+filename, "实际路径："+lnk.path )
    
50.                    //路径如果用filename,得到的图标中快捷方式会没图标
    
51.                    //var sfi = fsys.info.get(filename, 0x4000/*_SHGFI_SYSICONINDEX*/ | 0x10/*_SHGFI_DISPLAYNAME*/)
    
52.                    var sfi = fsys.info.get(fullpath, 0x4000/*_SHGFI_SYSICONINDEX*/ | 0x10/*_SHGFI_DISPLAYNAME*/)
    
53.                    //显示图标
    
54.                     winform.listview2.addItem( {
    
55.                             text = filename;//sfi.szDisplayName;不显示后缀
    
56.                             iImage = sfi.iIcon;
    
57.                     } )
    
58.                 }
    
59.         },false
    
60. );
    
61. 
    
62. 
    
63. winform.enableDpiScaling();
    
64. winform.show();
    
65. 
    
66. win.loopMessage();
    
67. 
    

复制代码

BASSTK

不错,感谢分享!

tea2017

真是太感謝了, 很嫩的新手 正在學習中

請問一下 : 要如何將 listview 中的 item 一次全部刪除  ?   雖然我看了 庫  中有 [0xFFFFFF98/*_LVN_DELETEALLITEMS*/]  的描述, 還是不知道如何使用

還請惠賜範例

JacenHe

tea2017 发表于 2017-11-17 09:32
真是太感謝了, 很嫩的新手 正在學習中

請問一下 : 要如何將 listview 中的 item 一次全部刪除  ...

winform.listview.clear() 就可以了，库函数文档里有的。
其实在几乎所有清空的函数，基本都是叫 clear() ，要不就是 removeAll等等，写多了就不困惑了。

tea2017

Jacen.He 发表于 2017-11-17 12:41
winform.listview.clear() 就可以了，库函数文档里有的。
其实在几乎所有清空的函数，基本都是叫 clear( ...

真是感謝有你 !