Listview调用系统图像列表问题
系统图像列表就是指资源管理器用来显示文件图标的那个ImageList控件
在Delphi中没问题的程序,在VB中偏行不通,提示"ImageList没有初始化"
以下是我写的代码,不知错在哪儿了:
sub:
Dim shFInfo As SHFILEINFO, hImg as long
hImg = SHGetFileInfo("C:\", 0, shFInfo, Len(shFInfo), SHGFI_SYSICONINDEX Or SHGFI_SMALLICON)
SendMessage ListView1.hwnd, LVM_SETIMAGELIST, LVSIL_SMALL, hImg
S="c:\msdos.sys"
SHGetFileInfo s, 0, shFInfo, Len(shFInfo), SHGFI_SYSICONINDEX Or SHGFI_SMALLICON
ListView1.ListItems.Add , , S, shFInfo.iIcon ,shFInfo.iIcon