Differenze tra le versioni di "Estrarre l'icona di un tipo di file"
Da Gambas-it.org - Wikipedia.
| Riga 3: | Riga 3: | ||
Per estrarre l'icona associata ad un tipo di file, si potrà utilizzare la Classe ''DesktopMime'' del componente ''gb.desktop'' | Per estrarre l'icona associata ad un tipo di file, si potrà utilizzare la Classe ''DesktopMime'' del componente ''gb.desktop'' | ||
| − | Nel semplice esempio seguente attiviamo il componente ''gb.desktop'' e poniamo sul ''Form'' dell'applicazione una ''PictureBox'', nella quale sarà mostrata l'icona del tipo di file individuato: | + | Nel semplice esempio seguente attiviamo il componente ''gb.desktop'' e poniamo sul ''Form'' dell'applicazione un ''Button'' ed una ''PictureBox'', nella quale sarà mostrata l'icona del tipo di file individuato: |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Versione delle 20:15, 8 gen 2014
Quando un tipo di file è associato ad una determinata icona, tutti i file appartenenti a quel tipo saranno mostrati sul desktop con quell'icona.
Per estrarre l'icona associata ad un tipo di file, si potrà utilizzare la Classe DesktopMime del componente gb.desktop
Nel semplice esempio seguente attiviamo il componente gb.desktop e poniamo sul Form dell'applicazione un Button ed una PictureBox, nella quale sarà mostrata l'icona del tipo di file individuato:
Public Sub Button1_Click()
Dim dm As DesktopMime
Dim i as Image
percorso = "/percorso/del/file"
With dm = DesktopMime.FromFile(percorso)
i = .GetIcon(48)
PictureBox1.Picture = i.Picture
End With
End
