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 1: | Riga 1: | ||
− | Per estrarre l'icona associata | + | Per estrarre l'icona associata a una applicazione associata a 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: | 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: | ||
− | ''' | + | Private Const PIX As Integer = 48 <Font color=gray>' ''Imposta la dimensione dell'icona da mostrare''</font> |
+ | |||
+ | |||
+ | Public Sub Form_Open() | ||
Dim percorso As String | Dim percorso As String | ||
Dim df As DesktopFile | Dim df As DesktopFile | ||
− | percorso = "<FONT Color= | + | percorso = "<FONT Color=darkgreen>''/percorso/del/file/associato/all'applicazione''</font>" |
With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0] | With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0] | ||
Riga 13: | Riga 16: | ||
Print .ProgramName | Print .ProgramName | ||
<Font color=gray>' ''Viene mostrata in una "PictureBox" l'icona associata a tipo di file:''</font> | <Font color=gray>' ''Viene mostrata in una "PictureBox" l'icona associata a tipo di file:''</font> | ||
− | PictureBox1.Image = .GetIcon( | + | PictureBox1.W = PIX |
+ | PictureBox1.H = PIX | ||
+ | PictureBox1.Image = .GetIcon(PIX) | ||
End With | End With | ||
− | + | End |
Versione attuale delle 17:20, 27 giu 2024
Per estrarre l'icona associata a una applicazione associata a 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:
Private Const PIX As Integer = 48 ' Imposta la dimensione dell'icona da mostrare 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.W = PIX PictureBox1.H = PIX PictureBox1.Image = .GetIcon(PIX) End With End