[VB6] Ricavare l'icona di un programma

[luisa227]

Devo estrarre l'icona di un programma e visualizzarla in un nodo di un treeview.
Riesco ad estrarre l'icona con le API visualizzandola direttamente sul form o in una picture, ma proprio non riesco a capire come inserirla nella imageList (associata al treeview). Qualcuno mi può aiutare dandomi un esempio di codice? grazie

'Draw the icon on the form
       mIcon = ExtractAssociatedIcon(App.hInstance, "C:\Programmi\API-Guide\API-Guide.exe", 2)
    'Draw the icon on the form
    DrawIconEx Me.hdc, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL

[luisa227]

nessuno. Pensavo fosse una cosa semplice...

[alka]

Prova a leggere anche questa discussione: forse contiene elementi che possono portare alla risoluzione del problema.

Ciao!

[LMondi]

Ciao luisa227,
di seguito posto un esempio di come inserire un'icona nel controllo ImageList:

'In un oggetto ListImage, è possibile caricare sia immagini bitmap,
'sia icone. Per caricare un'immagine bitmap o un'icona,
'è necessario utilizzare la funzione LoadPicture nel modo seguente:
'Set imgX = ImageList1.ListImages.Add(, , LoadPicture("nome file"))
Private Sub Command1_Click()
    Dim imgX As ListImage
    Dim I As Integer
   
    Set imgX = ImageList1.ListImages.Add(, , _
    LoadPicture("D:\Programmi\ICONEVB\A-icons\acrobat.ico", vbLPLarge, vbLPColor))
    imgX.Key = "Acrobat"   'assegna la proprietà Key

End Sub

[luisa227]

Ci ho impiegato un po' per capire... alla fine ce l'ho fatta! Grazie a tutti! Posto il codice(a grandi linee) in caso serva a qualcun'altro!
Innanzitutto uso l'api ExtractAssociatedIcon per ricavare l'icona del programma che mi interessa poi la disegno nella picture attraverso la seguente api

 DrawIconEx Picture1.hDC, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL

poi associo l'imagelist alla picture (è questo che non mi riusciva!)

Set Img = ImageList2.ListImages.Add(2, , Picture1.Image)

infine associo il tree alla imagelist e attribuisco al nodo l'indice dell'immagine che mi interessa

Set TreeView1.ImageList = ImageList2
nodX.Image = 1

grazie a tutti... ah... ce un modo per far sì che l'icona inserità sia di una dimensione giusta? se riduco la picture si "sfasa" l'icona...