Jump to content
PLC Forum

Brothers

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

Recommended Posts

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

Link to post
Share on other sites

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)

Link to post
Share on other sites
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

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...