急急。。关于显示图标。。。

Question

dim strFileName as string
strFileName=dir("某目录\*.ico")
do while not strFileName<>vbnullstring
    listview.listitems.add ,strFileName,strFileName,loadpicture(strFileName)
    strFileName=dir
loop
记得将listview控件的view属性改成0
还有，上面的代码现写的没调过的，你自己调试吧，：）

Answer 1

遍历那个文件夹，得到文件夹所有文件的Path & Filename
然后凡后缀名".ico"的文件名的就保存在数组里或其它地方或直接打开.

Answer 2

我在界面上放一个LISTVIEW1，放一个按钮，单击按钮则图标显示，图标在F盘ICON目录下，
如下程序，但没反应。Private Sub Command1_Click()
Dim strFileName As String
strFileName = Dir("f:\icon\*.ico")
Do While Not strFileName <> vbNullString
    ListView1.ListItems.Add , strFileName, strFileName, LoadPicture(strFileName)
    strFileName = Dir("f:\icon\*.ico")
Loop
End Sub

Answer 3

Dim strFileName As String
strFileName = Dir("C:\Amoon\icons\Icons\*.ico")
Do While strFileName <> vbNullString
    ImageList1.ListImages.Add , strFileName, LoadPicture("C:\Amoon\icons\Icons\" & strFileName)
    ListView1.ListItems.Add , strFileName, strFileName, strFileName
    strFileName = Dir
Loop
在窗体上加一个ImageList控件，在Listview1的属性页将Image Lists中的normal设为ImageList1即可.

Answer 4

:),对不起因为第一次给你的例子里面出了三个错误。
1、Do While 的条件里多写了一个 Not
2、strFileName只得到文件名，LoadPicture中的参数要制定包含路径的文件名称。
3、ListView要与ImageList绑定使用的。
对不起，我太粗心了，呵呵。

Answer 5

或者你关掉些其他的程序（ImageList控件比较耗资源）。再不然重新启动一下？

Answer 6

128M的机子，应该可以吧？Private Sub Command1_Click()
Dim strFileName As String
strFileName = Dir("f:\Icon\*.ico")
Do While strFileName <> vbNullString
    ImageList1.ListImages.Add , strFileName, LoadPicture("f:\Icon\" & strFileName)
    ListView1.ListItems.Add , strFileName, strFileName, strFileName
strFileName = Dir
Loop
'在窗体上加一个ImageList控件，在Listview1的属性页将Image Lists中的normal设为ImageList1即可.
End Sub

Answer 7

:),"f:\Icon"里面有多少个文件？

Answer 8

我可以对显示出来的图标进行操作吗？
比如我选中LISTVIEW中的一个图标，然后再按某键就进行了相应操作，比如复制什么的？

Answer 9

那你得自己处理操作了。
触发的事件是 ItemClick

Answer 10

ItemClick是单击了一个ListItem时的事件
要处理键盘可在KeyDown,KeyUp,KeyPress中处理