Differenze tra le versioni di "Estrarre l'icona di un programma associato ad un file"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per estrarre l'icona associata ad una applicazione associata ad un tipo di file, si potranno utilizzare le Classi ''DesktopMime'' e ''DesktopFile'' del componente ''gb.desktop...') |
|||
| Riga 4: | Riga 4: | ||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
| − | |||
Dim df As DesktopFile | Dim df As DesktopFile | ||
Dim i As Image | Dim i As Image | ||
| Riga 11: | Riga 10: | ||
percorso = "''/percorso/del/file/associato/all'applicazione''" | percorso = "''/percorso/del/file/associato/all'applicazione''" | ||
| − | With df = DesktopFile.FromMime( | + | With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0] |
Print .ProgramName <Font color=gray>' ''Viene mostrato in console anche il nome dell'applicazione associata al file''</font> | Print .ProgramName <Font color=gray>' ''Viene mostrato in console anche il nome dell'applicazione associata al file''</font> | ||
i = .GetIcon(48) | i = .GetIcon(48) | ||
Versione delle 20:48, 8 gen 2014
Per estrarre l'icona associata ad una applicazione associata ad un tipo di file, si potranno utilizzare le Classi DesktopMime e DesktopFile 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 dell'applicazione associata al tipo di file individuato:
Public Sub Form_Open()
Dim df As DesktopFile
Dim i As Image
percorso = "/percorso/del/file/associato/all'applicazione"
With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0]
Print .ProgramName ' Viene mostrato in console anche il nome dell'applicazione associata al file
i = .GetIcon(48)
PictureBox1.Picture = i.Picture
End With
End
