Windows Icons

[Mike]

Hi,

I am developing a document management system in MS Access (adp on top
of SQL Server). One thing I would like to do in my listview is show the

default icon associated in Windows with that specific file extension
(e.g. show the excel icon when my file has an xls-extension as Windows
Explorer does).


I found some neat VB-code to extract the default icon from the Windows
Registry (http://www.developerfusion.co.uk/show/2982/) and assign it to

a PictureBox. So, this basically does what I want, except for the fact
that I cannot do this in VBA since it uses a PictureBox's hDC. VBA does

not have a PictureBox and the closest control being an ImageControl has

no hDC.


Did anybody ever try to do the same or know how to tackle this?


Thanks,


Mike

 

[Perry]

Are you trying to assign icons to listitems in a listview?
are you trying to assign icons to a PictureBox?
are you trying to assign icons hosted in your listview to other controls?

If the latter, you could use something like:

With Me.ListView1
Me.CommandButton1.Picture =
..Icons.ListImages(.SelectedItem.Icon).Picture
End With

Krgrds,
Perry

 

[zz]

maybe if you post the code here, somebody could modify it to work in VBA