高手请进：怎样vb获取与文件类型相关联的图标?

[jhshen]

在vb中，我要获取某几个文件类型的图标，比如.avi,.doc类型的图标，
查了很多资料，知道可以调用windows api函数ExtractAssociateIcon得到，
但还是遇到很多问题：
1。该api的一个参数需要是一个具体的文件名，如:d:\a.txt,而我用的时候是没有具体文件的。想了个办法，我可以创建一个新文件如d:\temp\b.txt,然后再获取相关联的图表，但是这样大大影响了程序执行效率，心有不甘，不知还有没有其他好办法

2。得到的返回值是个一个handler,我可以把图标显示出来，但一刷新页面，图标就没了，无法保存图标，无法把图标set给一个picture对象。如何解决？

[三杯倒]

1111

[sxmzmxh]

picture的属性autoredraw=true

[legend-never-die]

第一个有办法吗?
我来UP一下

[jhshen]

Dim strFilePath As String * 256
Dim mIcon As Long
Dim lpiIcon As Long

strFilePath = "E:\d.doc"
mIcon = ExtractAssociatedIcon(App.hInstance, strFilePath, 2)

If mIcon = 0 Then
MsgBox "no icon"
Exit Sub
End If

DrawIconEx Picture1.hdc, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL

Picture1.AutoRedraw = True

ImageList1.ListImages.Add , , Picture1.Picture
'这一步运行到这一步，就出错，为什么picture1.picture还是invalid picture,
'但图片已经显示出来了啊
'我如何把得到的图标加到imageList中？

'remove the icon from the memory
DestroyIcon mIcon

[jhshen]

Dim strFilePath As String * 256
Dim mIcon As Long
Dim lpiIcon As Long

strFilePath = "E:\d.doc"
mIcon = ExtractAssociatedIcon(App.hInstance, strFilePath, 2)

If mIcon = 0 Then
MsgBox "no icon"
Exit Sub
End If

DrawIconEx Picture1.hdc, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL

Picture1.AutoRedraw = True

ImageList1.ListImages.Add , , Picture1.Picture
'这一步运行到这一步，就出错，为什么picture1.picture还是invalid picture,
'但图片已经显示出来了啊
'我如何把得到的图标加到imageList中？

'remove the icon from the memory
DestroyIcon mIcon

[jinyefeng]

看看ImageList1.ListImages.Add 后面的提示

[jhshen]

呵呵，终于搞定了，在msdn里找了半天