Differenze tra le versioni di "Estrarre l'icona di un programma associato ad un file"
Da Gambas-it.org - Wikipedia.
Riga 4: | Riga 4: | ||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
+ | Dim percorso As String | ||
Dim df As DesktopFile | Dim df As DesktopFile | ||
Dim i As Image | Dim i As Image | ||
− | + | percorso = "''/percorso/del/file/associato/all'applicazione''" | |
− | + | ||
− | + | 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> | |
− | + | i = .GetIcon(48) | |
− | + | PictureBox1.Picture = i.Picture | |
− | + | End With | |
− | + | ||
− | |||
'''End''' | '''End''' |
Versione delle 18:06, 8 mag 2021
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 percorso As String 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