File icons in ListView

[bradles]

From my previous question you would assume I'm trying to build a form with some explorer like functionality. To that end I have a ListView control filled with filenames from directories according to a patient/case previously chosen.

My users are keen to see file icons (as well as the file extensions already being displayed) to quickly differentiate the filetypes.

I have seen some VB code that operates without using ImageLists which would be ideal but it relies on APIs and control.hWnds which I haven't been able to modify to work in Access.

Any ideas?

I post the VB code and my attempts to modify for Access when I can (can't seem to find it on the web again).

Brad

 

[markphsd]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cmctl198/html/vbobjimagelistx.asp

Mark P.

Bleh

 

[bradles]

Thanks Mark, I've had to resort to using an ImageList control as you've suggested filled with the most common file icons seen.

A bit tedious and it surprises me that there isn't a better way to display file icons.

Brad

 

[markphsd]

it would be nice to include the path to the .ico file just the same as the setting the string text of the node. however, it's nice to use the imagelist because it stores the ico file in the control. this makes distribution easier. and... it's not actually tedious once you get it down. it only adds about 3 minutes to the building of the tree.


Mark P.

Bleh

 

[markphsd]

Also,

Do you have any code for opening forms from nodes. i saw it somewhere.. can't find it now..


Mark P.

Bleh

 

[markphsd]

nevermind. got it, here's a little test:

Private Sub trViewMenu_click()


Dim strItem As String

Dim trViewMenuobj As TreeView
Set trViewMenuobj = Me.trViewMenu.Object

strItem = trViewMenuobj.SelectedItem

Set trViewMenuobj = Nothing
Me.ViewForm.SetFocus

debug.print strItem
End Sub


Mark P.

Bleh