Controlli Treeview E Imagelist In Vb6 - trovare un file e visualizzare l'icona predefinita

[Brothers]

Ciao a tutti

Ho una domanda da porre.

Sto costruendo un cerca file che carica una immagine predefinita in un

controllo ImageList quando trova un file conosciuto

e poi la aggiunge ad un controllo TreeView

ad esempio:

-------------------------------------------

If Right(Percorso, 4) = ".doc" Then

Set imgX = ImageList.ListImages. _

Add(, Percorso, LoadPicture(App.Path & "\Word.9.ico"))

TreeView.Nodes.Add Node, tvwChild, Percorso, Nome, immagine

End If

-------------------------------------------

L'immagine la stabilisco io in fase di progettazione,

ma, ecco la domanda:

io vorrei assegnare l'icona predefinita

del sistema per quel tipo di file al controllo TreeView.

E' possibile ?

se si come?

Qualcuno lo sa?

Potrei risolvere assegnando una immagine ad ogni tipo di file

ma come si può intuire sarebbe una impresa titanica.

Ciao e grazie

[jumpier]

Io non l'ho provato ma forse fa al caso tuo ....

Fammi sapere, ciao!

Dim IconsInFile as long

Dim hIcon as long

Dim i as integer

Dim FileName as string

FileName = "C:\Win95\System\Explorer.exe"

IconsInFile = ExtractIcon(App.hInstance, FileName, -1)

'Ottengo il numero di icone nel file

For i=0 to IconsInFile -1

hIcon = ExtractIcon(App.hInstance, FileName, i) 'Estraggo la i-esima

icona dal file

DrawIcon(Form1.hDC, i * 36, 20, hIcon) 'La disegno

DestroyIcon(hIcon) 'L'icona non mi serve più: libero la memoria

Next i

'Icona del programma associato.

Dim hIcon as long

Dim FileName as string

FileName = "C:\Win95\System\Explorer.exe"

hIconRet = ExtractAssociatedIcon(App.hInstance, FileName, 0&)

Call DrawIcon(Form1.hDc, 1, 1, hIcon)

[Brothers]

Ciao Jumpier

Purtroppo no, non sono riuscito a farlo funzionare.

Ho provato anche ad aggiungere qualche dichiarazione che mi pareva mancasse,

ma niente da fare.

Sicuramente sarà colpa mia e non del codice.

Comunque grazie lo stesso

Ciao