Differenze tra le versioni di "Estrarre l'icona di un programma associato ad un file"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 6: | Riga 6: | ||
Dim percorso As String | Dim percorso As String | ||
Dim df As DesktopFile | Dim df As DesktopFile | ||
| − | + | ||
| − | + | percorso = "<FONT Color=gray>''/percorso/del/file/associato/all'applicazione''</font>" | |
| − | percorso = "''/percorso/del/file/associato/all'applicazione''" | ||
With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0] | With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0] | ||
| − | + | <Font color=gray>' ''Viene mostrato in console anche il nome dell'applicazione associata al file''</font> | |
| − | + | Print .ProgramName | |
| − | PictureBox1. | + | <Font color=gray>' ''Viene mostrata in una "PictureBox" l'icona associata a tipo di file:''</font> |
| + | PictureBox1.Image = .GetIcon(48) | ||
End With | End With | ||
'''End''' | '''End''' | ||
Versione attuale delle 13:19, 20 ago 2022
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 percorso = "/percorso/del/file/associato/all'applicazione" With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0] ' Viene mostrato in console anche il nome dell'applicazione associata al file Print .ProgramName ' Viene mostrata in una "PictureBox" l'icona associata a tipo di file: PictureBox1.Image = .GetIcon(48) End With End
